1 


flb-ftooi  53b 


RIA-81-U887 


AMSAA 


AD  2 , . 


TECHNICAL  RtPORT  NO.  97  TECHNICAL 

iiilllH  LIBRARY 

JSho  r»mni486 


5 0712  01001486 

LtGAL  MIX;  A FORTRAN  MODEL  FOR 
EVALUATING  ARTILLERY  SYSTEMS 


Edward  G.  Stauch 


July  197A 


Appruvld  for  public  release,  distribution  unlimited. 

U.S.  ARMY  MATERIEL  SYSTEMS  ANALYSIS  ACTIVITY 
Aberdeen  Proving  Ground,  Maryland 


DISPOSITION 


Destroy  this  report  when  no  longer  needed.  Do  not  return  it  to 
the  originator. 


DISCLAIMER 

The  findings  in  this  report  are  not  to  be  construed  as  an  official 
Department  of  the  Army  position. 


WARNING 

Information  and  data  contained  in  this  document  are  based  on 
the  input  available  at  the  time  of  preparation.  The  results  may  be 
subject  to  change  and  should  not  be  construed  as  representing  the 
AMC  position  unless  so  specified. 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  This  PAGE  (When  Dmtm  Entered) 


REPORT  DOCUMENTATION  PAGE 

READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 

t.  REPORT  NUMBER 

TECHNICAL  REPORT  NO.  97 

2.  GOVT  ACCESSION  NO. 

3.  RECIPIENT'S  CATALOG  NUMBER 

4.  TITLE  (and  Subtitle) 

LEGAL  MIX:  A FORTRAN  MODEL  FOR  EVALUATING 

ARTILLERY  SYSTEMS 

5.  TYPE  OF  REPORT  ft  PERIOD  COVERED 

6.  PERFORMING  ORG.  REPORT  NUMBER 

7.  AU  THORf t) 

Edward  G.  Stauch 

8.  CONTRACT  OR  GRANT  NUMBER*^ 

9.  PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 

US  Army  Materiel  Systems  Analysis  Activity 
Aberdeen  Proving  Ground,  Md.  21005 

10.  PROGRAM  ELEMENT.  PROJECT,  TASK 
AREA  A WORK  UNIT  NUMBERS 

RDT§E  Project  No. 
1T765706M541 

II.  CONTROLLING  OFFICE  NAME  ANO  AOORESS 

US  Army  Materiel  Command 
5001  Eisenhower  Avenue 
Alexandria,  VA  22333 

12.  REPORT  DATE 

Julv  1974 

13.  NUMBER  OF  PAGES 

195 

U MONITORING  AGENCY  NAME  ft  AOORESSf//  different  from  Controlling  Office) 

IS.  SECURITY  CLASS,  (ot  (hit  rtport) 

UNCLASSIFIED 

15«.  DECLASSIFIC  ATI  ON/ DOWNGRADING 
SCHEDULE 

16.  DISTRIBUTION  STATEMENT  (of  thfm  Report) 


Approved  for  public  release;  distribution  unlimited. 


17  DISTRIBUTION  STATEMENT  (of  the  abstract  entered  in  Block  20,  if  different  from  Report) 


18.  SUPPLEMENTARY  NOTES 


19  KEY  WORDS  (Continue  on  reveree  aide  If  neceaaary  and  Identify  by  block  number) 

Artillery  Simulation  Model 
Legal  Mix  IV 

Artillery  Force  Performance 
Artillery  Effectiveness 

Target  Military  Worth 

20.  ABSTRACT  (Continue  on  reveree  aide  If  neceeeary  and  Identity  by  block  number) 

A FORTRAN  version  of  the  "Legal  Mix"  Artillery  Simulation  Model  has  been 
developed  at  the  U.S.  Army  Materiel  Systems  Analysis  Activity  (AMSAA) . The 
model  is  similar  to  versions  that  were  originally  used  for  conduct  of  both 
"Legal  Mix  III"  and  "IV"  studies.  The  model  is  designed  to  measure  the  rela- 
tive performance  of  a series  of  "division-slice"  families  of  artillery  weapons 
by  simulating  the  basic  demands  placed  on  an  artillery  force  during  the  typica 
day  of  combat.  This  report  furnishes  documentation  of  the  model  to  include 


DD  , 1473  edition  OF  I NOV  MIS  OBSOLETE  UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  Data  Entered) 


% 


UNCLASSIFIED 

SECURITY  CLASSIFICATION  OF  THIS  PAGEflThti  Data  Enltnd) 


20.  ABSTRACT  (CONTINUED)." 

basic  model  description,  model  flow  charts,  and  listing  of  sample  input  and 
output  data. 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAOEf1Wi»n  Dmlm  Enlettd) 


ACKNOWLEDGEMENT 


The  author  wishes  to  thank  Mr.  Eddie  Morrow  of  AMSAA  for  his 
substantial  effort  in  coding  the  FORTRAN  program  and  for  his  assistance 
in  outlining  the  input  data  requirement.  Also,  a word  of  thanks  is  due 
Mrs.  Cinda  J.  Roberts  for  her  suggestions  in  the  preparation  of  the 
program  flow  charts  and  for  the  typing  of  the  flow  charts. 


3 


The  following  page  is  blank. 


CONTENTS 


Page 


1.  INTRODUCTION  7 

2.  METHODOLOGY  7 

2.1  Target  List 7 

2.2  Artillery  Force  8 

2.3  Effectiveness  Computation  10 

2.4  Allocation  Process 10 

2.5  Model  Outputs 11 

3.  INPUT  FORMATS 11 

3. 1 Card  Input 11 

3.2  Target  Tape  Input 12 

4.  SUMMARY 12 

REFERENCES 31 

APPENDIX  A - Program  Listing  A-l 

APPENDIX  B - Program  Flow  Charts B-l 

APPENDIX  C - Program  Variable  Listing  C-l 

Appendix  D - Sample  Input  Listing  D-l 

Appendix  E - Sample  Output  Listing  E-l 

DISTRIBUTION  LIST 33 


5 


The  following  page  is  blank. 


LEGAL  MIX:  A FORTRAN  MODEL  FOR 

EVALUATING  ARTILLERY  SYSTEMS 


1 . INTRODUCTION 

A FORTRAN  II  and  IV  version  of  the  Legal  Mix  Artillery 
simulation  model  has  been  developed  for  evaluating  artillery  systems. 

An  earlier  version  of  the  model  was  prepared  in  1966  in  the  FORAST  coding 
for  use  on  the  BRLESC  I computer  of  the  Ballistic  Research  Laboratories 
at  Aberdeen  Proving  Ground,  Maryland  (Reference  1). 

The  rationale,  assumptions  and  methodology  used  in  preparing 
the  model  are  found  in  References  2 and  3.  The  sole  intent  of  this 
report  is  to  provide  a "users  manual"  for  those  who  desire  to  employ  the 
Legal  Mix  model  in  the  evaluation  of  artillery  systems.  Therefore,  a 
minimum  of  supporting  methodology  is  included. 

2 . METHODOLOGY 

The  methodologies  employed  in  the  program  are  based  upon  those 
found  in  References  2 and  3.  In  essence,  the  model  employs  five  compon- 
ents, which  are  briefly  outlined  in  the  following  paragraphs. 

2 . 1 Target  List. 

The  target  list,  derived  from  a war  game  and  subsequent  target 
acquisition  analysis,  represents  the  threat  and  demands  on  the  friendly 
artillery  force.  The  result  of  the  derivation  is  a time-ordered  list  of 
both  acquired  target  missions  and  pre-planned  support  missions  such  as 
illumination,  smoke  and  harassment  fires.  Each  target  on  the  list  is 
described  by  a number  of  data  elements,  including  location,  time  of 
acquisition,  estimated  target  duration  time,  number  of  tactical  elements 
(personnel,  tanks  and  armored  personnel  carriers),  and  other  estimated 
and  actual  data.  (See  paragraph  3.2  for  a complete  listing  of  target 
parameters).  Several  parameters  require  a brief  explanation: 

* Target  Frequency  - The  program  allows  four  levels  of  battle 
intensity:  Low,  Mid,  Base  and  High.  The  target  list  itself  represents 


*Odom,  C.T.,  Kramar,  J.  W. , and  Thomas,  A.S.,  An  Improved  Model  for 
Evaluating  Artillery  Weapons,  BRL  Report  No.  1321,  September  1966, 

APG,  MD.  UNCLASSIFIED 

‘'Report,  Optimum  Mix  of  Artillery  Units,  1971-1975  (U) , Phase  III,  USACDC 
Field  Artillery  Agency,  July  1967,  Fort  Sill,  OK,  SECRET 

^Report,  Optimum  Mix  of  Artillery  Units,  1975-1980  (U)  (Short  Title: 

Legal  Mix  IV),  USACDC  Field  Artillery  Agency,  August  1970,  SECRET 
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Base-intensity , where  each  listed  target  acquisition  signifies  a single 
(frequency  = 1)  demand  on  the  artillery  force.  For  other  intensities, 
however,  the  target  frequency  may  be  increased  (or  eliminated)  as  a demand 
on  the  force.  Therefore,  based  on  an  analysis  of  the  war  game  which 
generated  the  target  list,  each  target  acquisition  is  assigned  a frequency 
for  each  of  the  allowed  intensities. 

• Military  Worth  - Based  upon  questionnaires  administered  to 

a group  of  field  grade  officers  representing  various  combat  arms,  a scale 
of  relative  military  worth  values  hag  been  developed  for  the  various 
type  tactical  elements  on  the  target  list.  (References  354).  This 
military  worth  value  is  used  for  various  purposes  in  the  program.  First, 
it  provides  for  a priority  ordering  of  targets  for  attack,  whereby  the 
acquisitions  with  highest  military  worth  are  attacked  first  in  each  game 
time  increment.  Secondly,  it  allows  for  a segmenting  of  targets  into 
categories  which  control  the  level  of  attack  and  allowable  ammunition 
weight  expenditure  against  a target.  Table  2.1  lists  the  categories 
utilized  in  the  program.  Lastly,  Military  Worth  provides  for  a measure 
of  force  performance,  by  suming  up  the  military  worth  points  of  damaged 
target  elements. 

• Target  Posture  Mix  - Past  efforts  have  identified  typical 
postures  for  the  elements  (personnel,  tanks  and  APC's)  which  make  up  each 
target  (Reference  2) . These  postures  indicate  the  percentage  of  personnel 
standing,  prone  and  crouching  (in  foxholes)  as  well  as  the  status  of 
materiel  elements  (static  or  moving)  and  proximity  to  the  Forward  Edge  of 
the  Battle  Area  (FEBA)  for  both  warned  and  unwarned  conditions.  The  Legal 
Mix  studies  have  defined  12  "posture  mixes"  accounting  for  various  com- 
binations of  these  postures.  (See  the  typical  data  inputs  in  paragraph 
3.1). 


2 .2  Artillery  Force. 

The  second  component  of  the  model  accounts  for  the  artillery 
resources  available  to  the  friendly  force.  The  allowable  fire  units  and 
their  movement  schedules  throughout  the  battlefield  day  are  generated 
from  the  tactical  situation  developed  in  the  war  game.  Associated  with 
each  fire  unit  are  weapon  system  and  ammunition  parameters  which  define 
the  capabilities  of  the  artillery  force.  (See  paragraph  3.1  for  a 
detailed  listing  of  the  various  parameters.) 
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Loc.  Cit. 
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Wood,  William  J.,  and  Tice,  Jerry,  A Proposed  Method  for  Determining 
Target  Worth  as  an  Input  to  Weapon  Systems  Analyses,  AMSAA  TM  15,  Oct  68, 
Aberdeen  Proving  Ground,  MD,  UNCLASSIFIED. 
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TABLE  2.1  MILITARY  WORTH 


Target  Category 

Military  Worth  Points 

I 

M.W.  > 10  (Maximum  value  = 21.) 

II 

3 <_  M.W.  < 10 

III 

M.W.  < 3 

9 


2 . 3 Effectiveness  Computation. 


The  model  employs  the  same  basic  effectiveness  computation  routine 
as  outlined  in  Reference  5.  This  routine  determines  the  number  of  rounds 
and  fire  units  required  to  reach  specified  attack  levels  against  estimated 
data  for  each  target,  and  calculates  the  amount  of  target  damage  inflicted, 
in  terms  of  fractional  survivors,  against  actual  target  data.  The  program 
examines  each  target  in  priority  order  and  identifies  the  possible  attack 
solutions  available  at  the  time  the  target  is  presented  for  consideration. 
Three  attack  level  thresholds  are  used  in  the  model  as  criteria  for 
engagement  (Reference  3) : 

• Threshold  A,  representing  a defeat  level  of  50%  damage 

• Threshold  B,  representing  a fixed  level  of  damage  required 
to  disrupt  unit  integrity.  For  materiel  targets,  this  level  is  specified 
at  30%  damage,  while  for  personnel  targets  the  level  is  set  at  1/2  (100-F)% 
where  F represents  the  percentage  of  personnel  in  foxholes,  and  where  the 
quantity  1/2  (100-F)  is  restrained  between  25%  to  50%  damage  levels. 

• Threshold  C is  restricted  to  Category  I and  II  targets 
(Military  Worth  _>  3.00)  and  is  defined  as  a minimum  acceptable  damage 
level  equal  to  (.9/Target  Military  Worth).  This  attack  level  is  used 
only  when  Threshold  B damage  cannot  be  achieved  against  Category  I and  II 
targets  and  the  target's  duration  is  such  that  the  target  will  not  be 
considered  for  attack  again. 

2.4  Allocation  Process. 

The  allocation  process  in  the  model  controls  the  massing  of  fire 
units  and  the  tactical  method  of  attack,  in  determining  the  optimum 
solution  against  a target.  Two  attack  methods  are  examined: 

• One-volley  method  - Fire  units  are  added  as  necessary  to 
reach  the  specified  attack  levels  when  constrained  to  fire  only  one 
volley  per  unit. 

• Multi-volley  method  - Fire  units  firing  all  available 
(within  specified  constraints)  ammunition  are  added  in  turn  in  order  of 
effectiveness  until  the  specified  attack  level  is  reached. 


30dom,  C.T.,  Kramar,  J.W.,  Michels,  H.W.,  Thomas,  A.S. , and  Thomas,  C.M., 
Reoptimization  of  a Multiple  Artillery  Rocket  System  - MARS  II  (U) , BRL 
Report  No.  1736,  September  1966,  Aberdeen  Proving  Ground,  MD,  SECRET. 
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The  order  in  which  units  at  the  various  tactical  echelons  are  examined 
and  massed  depends  on  the  echelon  which  acquired  the  target,  as  deter- 
mined in  the  war  game.  The  order  of  massing  fire  units  is  shown  in 
Table  2.2. 

TABLE  2.2  FIRE  UNIT  MASSING  ORDER 


Attempted 


Acquiring  Echelon 


Solution 

DS 

GS 

CORPS 

1st 

Closest  DS  alone 

GS  alone 

CORPS  alone 

2nd 

GS  alone 

GS  5 DS 

CORPS  5 GS 

3rd 

GS  § DS 

CORPS  alone 

All 

4th 

CORPS  alone 

CORPS  6 GS 

5th 

CORPS  8 GS 

All 

6th 

All 

5 Model 

Outputs 

The  final  component  of  the  model  provides  for  an  hourly  game 
output  of  effort  and  effectiveness  measures.  The  principal  measures  of 
effort  are  the  cost  and  weight  of  ammunition  expended  against  the  target 
list.  Effectiveness  is  measured  in  the  amount  of  personnel  and  materiel 
damage  inflicted;  the  number  of  targets  fired  upon,  defeated,  and  not 
engaged;  and  a summary  of  military  worth  points  scored.  A sample  output 
is  shown  in  Appendix  E.  The  user,  of  course,  may  desire  to  print  out 
additional  data  by  adding  the  appropriate  computer  statements  to  the 
OUTPUT  Subroutine. 

3.  INPUT  FORMATS 

All  data  inputs,  except  for  the  target  list,  are  entered  by 
standard  80-column  cards.  The  target  list  is  entered  from  120-column 
tape.  The  following  paragraphs  outline  the  various  input  requirements 
to  include  columns,  variable  names  and  units  associated  with  each  input 
variable. 


3. 1 Card  Input 

For  ease  in  setting  up  the  input  card  deck,  the  cards  are 
segmented  into  16  card  sets  which  are  read  into  the  computer  in  five 
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subroutines,  as  indicated  in  Figure  Figure  3.1.  Tables3.1  through  3.5 
outline  the  specific  sets,  cards,  columns  and  units  for  the  subroutines. 
Appendix  D contains  a tabulation  of  sample  input  data. 

3.2  Target  Tape  Input 

Each  target  on  the  target  list  is  described  by  33  data  points 
on  two  lines  of  tape  input.  For  special  (or  "OTHER")  type  targets  (H§I , 
Illumination  § Smoke  Missions)  there  is  an  additional  line  of  tape  input 
with  8 data  points.  Format  for  first  2 lines  is:  FORMAT  (F7.1,  16F7.2,/ 

16F8.2).  Format  for  3rd  line  (when  used)  is:  FORMAT  (8F8.2). 

Targets  are  listed  on  the  tape  in  time  sequence,  according  to 
their  estimated  time  of  arrival  in  the  battle.  As  a target  is  input,  the 
data  points  are  assigned  to  a TNI (I)  list,  from  which  they  are  then 
transferred  to  the  TN(I,J)  array  according  to  the  priority  order  in  which 
they  will  be  attacked.  Table  3.6  outlines  the  specific  data  points 
required  for  each  target. 

Tapes  currently  available  for  use  with  the  Legal  Mix  models 
which  were  generated  for  the  Legal  Mix  Studies  are: 

• European  Target  Array  (Reference  3) 

• Korean  Target  Array  (Reference  3) 

Efforts  are  now  in  progress  to  conduct  additional  war  games  to 
furnish  updated  European  target  lists. 

4.  SUMMARY 

The  basic  input  formats  representing  friendly  capabilities  and 
the  enemy  threat  have  been  described.  Detailed  rationale  and  methodol- 
ogies may  be  found  in  the  cited  literature. 

The  computer  program  as  written  (Appendix  A)  requires 
approximately  60,000  words  of  computer  memory.  This  memory  requirement 
may  be  lessened  by  reducing  the  present  number  of  rounds  (50)  and  fire 
units  (100)  allowed  in  the  model.  A typical  computer  run  of  the  model 
requires  from  30  to  60  minutes,  depending  on  the  number  of  systems, 
units,  and  rounds  considered  in  a given  "mix". 

Additions  and  modifications  to  the  model  are  planned  in  the 
near  future  to  further  expand  the  usefulness  and  applicability  of  the 
Legal  Mix  methodology.  Suggestions  and  comments  are  welcomed  by  the 
author. 
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Figure  3.1  Hard  Inputs 


Subroutine  PRELIM 


TABLE  3.1  SUBROUTINE  PRELIM 


Card 

Set 

No.  of 
Cards 

Card 
Cols . 

Variable 

Name 

Input 

Units 

1 

1 

1-80 

CXID 

Alpha-Numeric 

2 

1 

1-7 

TZRO 

Dec.  Hours 

8-1 4 

TMX 

Dec . Hours 

15-21 

FACT 

Real 

3 

12 

P0ST(I,J) 

(1st) 

1-7 

F0ST(1,1) 

0 

8-l4 

P0ST(1,2) 

Real 

15-21 

P0ST(1,3) 

Real 

22-28 

P0ST( 1,4) 

Real 

29-35 

P0ST(1,5) 

Real 

36-42 

P0ST(l,6) 

Real 

43-49 

F0ST(1,7) 

Real 

Comments 

Force  Identifier  - Used  for  info  only. 

Game  Start  Time  (First  printout  is  at  Start  + 1 
Hour) 

Game  End  Time  (Last  printout  at  Game  End  Hour) 

Game  Intensity  Level  Key:  1-Low;  2-Mid;  3-Base; 

4-High 

Lists  Posture  Mix  for  each  of  12  allowable  posture 
mixes . 

Posture  ID  Number  for  1st  posture 

% of  UNWARNED  Pers.  Standing  for  1st  posture 

% of  UNWARNED  Pers . Prone  for  1st  posture 

% of  UNWARNED  Pers.  in  Foxholes  for  1st  posture 

Key  for  UNWARNED  Tanks  for  1st  posture  0 = No  tanks 

1 = Tanks 

Key  for  UNWARNED  APC ' s for  1st  posture  0 = No  APC ' s 

1 = APC's 

% of  WARNED  Pers . Standing  for  1st  posture 


TABLE  3.1  SUBROUTINE  PRELIM  (CONT’D) 


Card  No.  of 

Set  Cards 

Card 
Cols . 

Variable 

Name 

Input 

Units 

Comments 

3 

Cont ' d 

50-56 

P0ST(1,8) 

Real 

% of  WARNED  Pers . Prone  for 

1st  posture 

57-63 

POST (I, 9) 

Real 

% of  WARNED  Pers . in  Foxholes  for  1st 

posture 

64-70 

POST(1,10) 

Real 

Key  for  WARNED  Tanks  for  1st 

posture 

0 = No  tanks 

1 = Tanks 

71-77 

P0ST(1,11) 

Real 

Key  for  WARNED  APC's  for  1st 

posture 

0 = No  APC's 

1 = APC's 

Same  11  data  points  for  the  2nd  thru  12th  postures . 
(Posture  numbers  are  0 thru  11  for  the  12  allowable 
postures . 


(2nd)  thru  (12th) 


TABLE  3.2  SUBROUTINE  RDSYS 


Card 

Set 

No.  of 
Cards 

Card 

Cols. 

Variable 

Name 

Input 

Units 

Comments 

1+ 

1 

1-5 

NSYS 

Systems 

Number  of  weapon  systems  in  force  (NSYS<10) 

5 

2* 

NSYS 

These  2*NSYS  cards  list  12  data  points  for  each 
system. 

(1st) 

1-T 

SYSID(l) 

Real 

System  ID  number  for  1st  system  (e.g.  1200.1) 

8-ll 

FRWM(l) 

Real 

Fraction  of  1st  system  units  remaining  in  place 
during  unit  moves . 

15-21 

TPFU(l) 

Tubes /Unit 

Tubes  (or  launchers)  per  FU  for  1st  system. 

22-28 

SR0F(1) 

Rd/Min/Tube 

Maximum  rate  of  fire  vs  static  targets  for  1st 
system. 

29-35 

DR0F(1) 

Rd/Min/Tube 

Maximum  rate  of  fire  vs  moving  targets  for  1st 
system. 

36-1+2 

TBM(l). 

Minutes 

Time  between  missions  - the  time  to  set  up  and 
fire  1 volley  for  1st  system. 

1+ 3-1+9 

BLD(l) 

Rd/Unit 

Ammunition  Basic  Load  for  units  of  1st  system. 

50-56 

RSPY(l) 

Rd/Unit /Hr 

Ammunition  Resupply  Rate  for  units  of  1st  system. 

57-63 

SNMX(l) 

Rd/Tube/Mis- 

sion 

Maximum  rounds  allowed  per  mission  vs  static 
target  for  1st  system  units. 

TABLE  3.2  SUBROUTINE  RDSYS  (CONT'D) 


Card 

Set 

No.  of 
Cards 

Card 
Cols . 

Variable 

Name 

Input 

Units 

Comments 

5 

Cont  * d 

64-70 

DNMX(l) 

Rd/Tube /Mis- 
sion 

Maximum  rounds  allowed  per  mission  vs  moving 
target  for  1st  system  units. 

(2nd) 

1-7 

HNMX(l) 

Rd/Tube /Hr 

Maximum  rounds  allowed  in  1 hour  vs  all  targets 
for  1st  system  units. 

8-14 

STYP(l) 

Real 

Key  to  1st  system  type:  1 = Cannon;  2 = Missile 

(3rd) 

thru  ( 2*NSYS) 

Same  12  data  points  for  the  other  systems. 
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TABLE  3.3  SUBROUTINE  RDRND 


Card 

Set 

No.  of  Card 

Cards  Cols . 

Variable 

Name 

Input 

Units 

Comments 

6 

1 1-5 

NRDS 

Rounds 

Number  of  different  rounds  in  force 
( NRDS<_50 ) 

7 

6 or  lit 
per  each 
of  NRDS 
groups 

There  are  NRDS  card  groups  in  card  set  7- 
Depending  on  the  round  type  (RTP(l)),  there 
are  either  6 or  ll+  cards  per  group.  If 
RTP(l)=l  (ICM  type  round)  there  are  6 cards; 
if  RTP(l)=2  (HE  type  round)  there  are  lU 
cards  in  the  group.  The  first  4 cards  of  all 
groups  contain  data  for  the  same  variables. 

(1st)  1-7 

RNDID(I) 

Real 

Round  ID  number  for  I^*1  Rd.  (e.g.  1203.1) 

8-lU 

WGT(I) 

Metric/Tons /Rd  Crated  weight  of  I^h  Rd. 

15-21 

CST(I) 

Kilo  $/Rd 

Cost  per  round  of  I*'*1  Rd. 

22-28 

RMX(l) 

KM 

Maximum  range  of  I*1*1  Rd. 

29-35 

REL(I) 

Real 

In-flight  reliability  of  I*'*1  Rd. 

36-1+2 

DEP(I) 

Real 

% of  recoverable  misfires  for  1^  Rd.  (Not 
used  in  program). 

1+3-1+9 

RTP(I) 

Real. 

Key  to  rd.  type  for  I*'*1  Rd:  1=ICM;  2=HE 

50-56 

WARN(I) 

Seconds 

x Vi 

Signature  or  Warning  for  I Rd. 

TABLE  3.3  SUBROUTINE  RDRND  (CONT'D) 


Card 

Set 

No.  of 
Cards 

Card 
Cols . 

Variable 

Name 

Input 

Units 

Comments 

7 

Cont  * d 

(2nd) 

1-7 

RNG(I,1) 

KM 

1st  range  value  in  list  of  up  to  10 
for  Ith  Rd. 

ranges 

8-14 

RNG(I ,2) 

KM 

2nd  range  value  in  list  of  up  to  10 
for  Ith  Rd. 

ranges 

15-70 

RNG(I,3) 

thru 

RNG(I,10) 

KM 

3rd  thru  10th  range  value  in  list  of  up  to 
10  ranges  for  I^h  Rd. 

(3rd) 

1-7 

CPR(l ,1) 

Meters 

CPE  (Random)  at  1st  range  value  for 

Ith  Rd. 

8-14 

CPR(I,2) 

Meters 

CPE  (Random)  at  2nd  range  value  for 

Ith  Rd. 

15-70 

CPR ( I , 3 ) 
thru(l,10) 

Meters 

CPE  (Random)  at  3rd  thru  10th  range 
Ith  Rd. 

value  for 

(4th) 

1-7 

CPS(I,1) 

Meters 

CPE  (Total)  at  1st  range  value  for 
Ith  Rd. 

8-14 

CPS(I,2) 

Meters 

CPE  (Total)  at  2nd  range  value  for 
Ith  Rd. 

15-70 

CPS(I,3) 

thru 

CPS(I,10) 

Meters 

CPE  (Total)  at  3rd  thru  10th  range 
value  for  I1-"*1  Rd. 

TABLE  3.3  SUBROUTINE  RDRND  (CONT'D) 


Card 

Set 

7 

Cont ' d 


No.  of 
Cards 

Card 
Cols . 

Variable 

Name 

Input 

Units 

Comments 

If  RTP(I)=1  (ICM),  the  next  2 cards  complete  the  6 card  group. 
(Subroutine  ACMINP) 

(5th) 

1-7 

SRE 

Real 

Slope  of  Radius  of  Effects  vs  Range  plot  for 
Ith  Rd. 

8-14 

REZ 

Meters 

"Y"  - intercept  of  Radius  of  Effects  vs  Range 
plot  for  I^*1  Rd. 

15-21 

SRO 

Real 

Submissile  reliability  in  open  environment  for 
I**  Rd. 

22-28 

SRW 

Real 

Submissile  reliability  in  wooded  environment  for 
Ith  Rd. 

29-35 

EN 

Submissiles 

Number  of  submissiles  in  I^*1  Rd. 

(6th) 

1-7 

AL(1) 

M2 

Lethal  Area  of  1 submissile  vs  standing  target 
in  open  for  I^*1  Rd. 

8-14 

AL(2) 

M2 

Lethal  Area  of  1 submissile  vs  prone  target 
in  open  for  I^*1  Rd. 

15-21 

AL(3) 

M2 

Lethal  Area  of  1 submissile  vs  foxhole  target 
in  open  for  I^h  pa. 

22-28 

al(4) 

M2 

Lethal  Area  of  1 submissile  vs  tank  target 
in  open  for  I^h  Rd. 

• 

1 

• 

• 

» • 

• 

TABLE 

3.3  SUBROUTINE  RDRHD  (CONT'D) 

Card 

Set 

No.  of 
Cards 

Card 

Cols. 

Variable 

Name 

Input 

Units 

Comments 

7 

Cont ' d 

29-35 

AL(5) 

M2 

Lethal  Area  of  1 submissile  vs  APC  target 
in  open  for  1^  Rd. 

36-42 

al(6) 

M2 

Lethal  Area  of  1 submissile  vs  standing  target 
in  woods  for  I"*1'*1  Rd. 

43-49 

AL(7) 

M2 

Lethal  Area  of  1 submissile  vs  prone  target 
in  woods  for  1^4  Rd. 

IsJ 

h- 

50-56 

AL(8) 

M2 

Lethal  Area  of  1 submissile  vs  foxhole  target 
in  woods  for  1^4  Rd. 

57-63 

AL(9) 

M2 

Lethal  Area  of  1 submissile  vs  tank  target 
in  woods  for  I ^4  Rd. 

64-70 

AL(10) 

M2 

Lethal  Area  of  1 submissile  vs  APC  target 
in  woods  for  1^4  Rd. 

If  RTP(l)=2 

(HE),  the  next  10  cards  complete  the  14  card  group. 
(Subroutine  HEINP) 

(5th) 

1-7 

AL(1) 

M2 

Rd.  Lethal  Area  vs  standing  target  in  open  at 
range  for  I*”*1  Rd. 

1st 

8-l4 

AL(2) 

M2 

Rd.  Lethal  Area  vs  standing  target  in  open  at 
range  for  1^*4  Rd. 

2nd 

15-70 

AL(3)-AL(10) 

M2 

Rd.  Lethal  Area  vs  standing  target  in  open  at 
thru  10th  ranges  for  1^4  Rd. 

3rd 

TABLE  3.3  SUBROUTINE  RDRND  (CONT'D) 


to 

I- j 


Card 

Set 


7 

Cont ' d 


No.  of 
Cards 

Card 
Cols . 

Variable 

Name 

Input 

Units 

(6th) 

1-70 

AL(11)-AL(20) 

M2 

Rd . Lethal 
ranges  for 

Area  vs 
Ith  Rd. 

(7th) 

1-70 

AL(21)-AL(30) 

M2 

Rd.  Lethal 
ranges  for 

Area  vs 
Ith  Rd. 

(8th) 

1-70 

AL(3l)-AL(l+0) 

M2 

Rd.  Lethal 
ranges  for 

Area  vs 
Ith  Rd. 

(9th) 

1-70 

AL(1»1)-AL(50) 

M2 

Rd.  Lethal 
ranges  for 

Area  vs 
Ith  Rd. 

(10th) 

1-70 

AL(5l)-AL(60) 

M2 

Rd.  Lethal 
ranges  for 

Area  vs 
I*fi  Rd. 

(11th) 

1-70 

AL(6l)-AL(70) 

M2 

Rd.  Lethal 
ranges  for 

Area  vs 
Ith  Rd. 

(12th) 

1-70 

AL(71)-AL(80) 

M2 

Rd.  Lethal 
ranges  for 

Area  vs 
Ith  Rd. 

(13th) 

1-70 

AL(8l)-AL(90) 

M2 

Rd . Lethal 
ranges  for 

Area  vs 
Ith  Rd. 

(lUth) 

1-70 

AL(91)-AL(100) 

M2 

Rd.  Lethal 
ranges  for 

Area  vs 
Ith  Rd. 

Comments 

prone  target  in  open  at  10 

foxhole  target  in  open  at  10 

tank  target  in  open  at  10 

APC  target  in  open  at  10 

standing  target  in  woods  at  10 

prone  target  in  woods  at  10 

foxhole  target  in  woods  at  10 

tank  target  in  woods  at  10 

APC  target  in  woods  at  10 


TABLE  3.1*  SUBROUTINE  RDFU 


Card 

Set 

No.  of 
Cards 

Card 
Cols . 

Variable 

Name 

Input 

Units 

Comments 

8 

1 

1-5 

NFU 

Fire  Units 

Number  of  Fire  Units  in  Force  (NFU<100). 

9 

NFU 

Groups 

There  are  NFU  card  groups  in  card  set  9* 
The  number  of  cards  in  each  group  depends 
on  the  number  of  firing  sites  the  FU  will 
occupy  during  the  game  (NSITE(l)).  Each 
group  has  2+NSITE(l)  cards.  (NSITE(l )<8) . 

(1st) 

1-5 

NSITE(I) 

SITES 

Number  of  sites  for  the  I^h  fire  unit. 

(2nd) 

1-8 

FSID(I) 

Real 

Identifies  which  of  the  NSYS  systems  this  FU 
is.  (e.g.  1200.1) 

(3rd) 

thru 

(2+NSITE(l) ) 

1-8 

9-16 

TA(1,I) 

TD(1,I) 

HR. MIN 
HR. MIN 

Arrival  Time  of  Ith  FU  at  its  1st  site. 
(Example:  9 hr  & 15  min  is  input  as  9.15) 

Departure  Time  of  I^*1  FU  from  its  1st  site. 

17-21* 

XS(1,I) 

KM 

X-coordinate  of  I*'*1  FU’s  1st  site  (Easting) 

25-32 

YS(1,I) 

KM 

Y-coordinate  of  I**1  FU's  1st  site  (Northing) 

There  is  a card  with  the  above  1+  data  points  for  each  of  FU's  sites. 


10  NSYS  This  card  set  contains  one  card  per  system  to 

identify  the  rounds  allowed  for  each  system. 

Weapon  system  ID  number  for  I™1  system  (e.g. 

1200.1) 


(1st)  1-7 

thru  NSYS 


SYSRD(I,1)  Real 


TABLE  3.1+  SUBROUTINE  RDFU  (CONT'D) 


Card 

No.  of 

Card 

Variable 

Input 

Set 

Cards 

Cols . 

Name 

Units 

10 

Cont ' d 

(1st) 

thru 

8-U+ 

SYSRD(I,2) 

Real 

(NSYS) 

15-21 

SYSRD(l ,3) 

Real 

22-70 

SYSRD(1 ,1+ ) 
thru  (1,10) 

Real 

11 

(1st) 

1-5 

NP 

ID  No. 

6-10 

NR0(l) 

Rds 

11-15 

NRW(I) 

Rds 

(2nd) 

1-7 

0RVP(I,1) 

Real 

0RVP(I,2)  Real 


Comments 


Rd.  ID  of  1st  rd  allowed  for  I^*1  system  (e.g. 
1203.1) 

Rd.  ID  of  2nd  rd  allowed  for  I*'*1  system. 

Rd.  ID  of  3rd  thru  max  of  9th  rd  for  1^  system. 

This  card  set  contains  12  groups  (one  for  each 
allowable  posture)  which  define  which  rounds 
are  allowed  to  be  fired  vs  each  posture.  The 
number  of  cards  in  each  group  depends  on  the 
number  of  rounds  allowed  vs  each  posture  in  each 
of  the  two  environments  - open  and  woods. 

Posture  ID  Number  of  first  posture  (=0) 

Number  of  Rds  allowed  vs  1st  posture  in  open 
(NR0(l)<12) . 

Number  of  Rds  allowed  vs  1st  posture  in  woods 
(NRW(l)<12) . 

Rd.  ID  of  1st  allowable  round  vs  1st  posture  in 
open . 

Rd.  ID  of  2nd  allowable  round  vs  1st  posture  in 
open. 


8-11+ 


TABLE  3.4  SUBROUTINE  RDFU  (CONT'D) 


Card. 

Set 

No.  of 
Cards 

Card 
Cols . 

Variable 

Name 

Input 

Units 

Comments 

11 

Cont ' d 

15-70 

0RVP(I ,3) 
thru 

0RVP(l ,10) 

Real 

Rd.  ID  of  3rd  thru  10th  allowable  round  vs  1st 
posture  in  open. 

(3rd) 

1-7 

0RVP(l ,11) 

Real 

Rd.  ID  of  11th  allowable  round  vs  1st  posture  in 
open. 

8-14 

0RVP(I ,12) 

Real 

Rd.  ID  of  12th  allowable  round  vs  1st  posture  in 
open. 

This  3rd  card  is  needed  only  if  11  or  12  rds  are 
allowed  vs  the  1st  posture  in  open. 

(4th) 

1-7 

WRVP(l ,1) 

Real 

Rd.  ID  of  1st  allowable  round  vs  1st  posture  in 
woods . 

8-14 

WRVP(I,2) 

Real 

Rd.  ID  of  2nd  allowable  round  vs  1st  posture  in 
woods . 

15-70 

WRVP (1,3) 
thru 

WRVP(l ,10) 

Real 

Rd.  ID  of  3rd  thru  10th  allowable  round  vs  1st 
posture  in  woods. 

(5th) 

1-7 

WRVP (I ,11) 

Real 

Rd.  ID  of  11th  allowable  round  vs  1st  posture  in 
woods . 

1 


TABLE  3. U SUBROUTINE  RDFU  (CONT'D) 


Card  No.  of  Card  Variable  Input 

Set Cards Cols . Name Units Comments 

11 

Cont'd  8-1 4 WRVP(i,i2)  Real  Rd.  ID  of  12th  allowable  round  vs  1st  posture  in 

woods . 

This  5th  card  is  needed  only  if  11  or  12  rds. 
are  allowed  vs  the  1st  posture  in  woods . These 
5 cards  are  repeated  for  the  other  11  postures. 


K> 

a 


TABLE  3.5  SUBROUTINE  RDMIX 


Card 

Set 

No.  of 
Cards 

Card 
Cols . 

Variable 

Name 

Input 

Units 

Comments 

12 

1 

1-80 

MIXID 

Alpha- 

Numeric 

System-Rd-FU  Mix  Identifer.  Used 
for  Info  only. 

13 

1 

1 

2 

3 thru  10 

KSIG(l) 

KSIG(2) 

KSIG(3)-(10) 

0 or  1 
0 or  1 
0 or  1 

This  card  keys  those  systems  (of  up  to 
10  defined  in  RDSYS)  which  are  allowed 
in  this  mix.  A "l"  signifies  the  system 
is  in  the  mix;  "0"  = not  in  mix. 

lh 

1 

1 

2 

3 thru  50 

KRIG(l) 

KRIG(2) 

KRIG(3)-(50) 

0 or  1 
0 or  1 
0 or  1 

This  card  keys  those  rounds  (of  up  to  50 
defined  in  RDRND ) which  are  allowed  in 
this  mix.  A "l"  signifies  the  rd  is  in 
the  mix;  a "0"  = not  in  mix. 

15 

1st 

1 

2 thru  80 

KFIG(l) 

KFIG(2)-(80) 

0,1,2,  or  3 
0,1,2,  or  3 

These  cards  key  those  fire  units  (of  up 
to  100  identified  in  RDFU)  which  are 
allowed  in  this  mix.  0 = not  in  mix; 

1 = at  DS  echelon;  2 = at  GS  echelon; 

2nd 

1 thru  20 

KFIG(81)-(100) 

0,1,2  or  3 

3 = at  CORPS  echelon.  The  second  card  is 
not  used  if  80  or  less  FU's  have  been 
identified  in  RDFU. 

16 

1 

1-7 

CRTERA 

l.or  2. 

Keys  which  criterion  is  to  be  considered 

in  choosing  rounds  for  employment  against 
targets.  1 = cost  is  critical;  2 = weight 
is  critical. 


A series  of  mixes  may  be  considered  on  a 
given  computer  run  by  stacking  a series 
of  these  (12  thru  16)  card  sets  at  the  end 
of  the  input  deck. 


TABLE  3.6  TARGET  INPUT  VARIABLES 


K) 

00 


Tape  Tape  Variable  Input 

Line Columns Name Units Cnmmpntfi 


1-7 

TNl(l) 

Real 

Target  ID  Number  (e.g.  9016.0) 

8— lit 

(2) 

0, 

1,  2 or  3 

Acquisition  Key:  0 = Single  Acq. 

1 = 1st  of  Several  Acq. 

2 = Intermediate  Acq. 

3 = Last  of  Several  Acq. 

15-21 

(3) 

1 

Target  frequency  at  Base  Intensity  (l  for  all 

targets ) 

22-28 

(4) 

0, 

1 thru  11 

Estimated  posture  mix  for  target  main  element. 

29-35 

(5) 

Real 

Estimated  fraction  of  target  in  wooded  environ 
ment. 

36-it2 

(6) 

Real 

Estimated  fraction  of  target  in  open  environ- 
ment. 

k3-h9 

(7) 

Meters 

Estimated  target  radius . 

50-56 

(8) 

Decimal  Hours 

Estimated  target  Arrival  Time. 

57-63 

(9) 

Decimal  Hours 

Estimated  target  Departure  Time. 

64-70 

(10) 

Meters 

Target  Location  Error 

71-77 

(11) 

KM 

Estimated  Target  Easting  (Location) 

78-84 

(12) 

KM 

Estimated  Target  Northing  (Location) 

85-91 

(13) 

KM 

Target  Distance  from  FEBA. 

92-98 

(14) 

0 

thru  21 

Estimated  Military  Worth  of  Target. 

99-105 

(15) 

1 

, 2,  or  3 

Defines  echelon  which  acquired  target 
1=DS;  2=GS;  3=C0RPS 

106-112 

(16) 

1 

thru  70 

Target  type  identifier:  1 - Artillery 

2 - Mortars 

3 - Anti-air 

4 - Antitank 

5 - Msl/Rocket  Launchers 


• • 

% # 

• 

• 

• 

TABLE 

3.6  TARGET  INPUT 

VARIABLES  (CONT'D) 

Tape 

Tape 

Variable 

Input 

Line 

Columns 

Name 

Units 

Comments 

1st 

106-112 

TNI  (16) 

1 thru  70 

Target  type  identifier:  6 - APC's 

Cont ' d 

Cont ' d 

Cont ' d 

7 - Tanks 

8 - Command  Post 

9 - Observation  Post 

10  - Assembly  Area 

11  - Engineer  Units 

12  - Service  Units 

13  - Aviation  Units 
20  - H&I  Mission 

tv) 

KD 

30  - Illumination  Mission 
40  - Preparation  Fires 

50  - Counter-prep  Fires 
60  - Smoke  Mission 

70  - Final  Protection  Fires 

113-119 

(17) 

.5 

Threshold  "A"  Attack  Level  (=.5  for  all  targets) 

2nd 

1-8 

(18) 

• 5 

Target  Defeat  Level  (=.5  for  all  targets) 

9-16 

(19) 

0,1,  thru  11 

Actual  posture  mix  for  target  main  element. 

17-24 

(20) 

Real 

Actual  fraction  of  target  in  wooded  environ- 
ment . 

25-32 

(21) 

Real 

Actual  fraction  of  target  in  open  environment. 

33-40 

(22) 

Meters 

Actual  target  radius. 

41-48 

(23) 

Decimal  Hours 

Actual  target  Arrival  Time. 

49-56 

(24) 

Decimal  Hours 

Actual  target  Departure  Time. 

57-64 

(25) 

Personnel 

Number  of  Personnel  in  Target  (including  those 
inside  vehicles) 

65-72 

(26) 

Tanks 

Number  of  Tanks  in  Target. 

73-80 

(27) 

APC 

Number  of  APC's  in  Target. 

81-88 

(28) 

Real 

Initial  fraction  of  personnel  survivors. 

TABLE  3.6  TARGET  INPUT  VARIABLES  (CONT'D) 


O 


Tape 

Tape 

Variable 

Input 

Line 

Columns 

Name 

Units 

Comments 

2nd 

Cont 1 d 


3rd 


89-96 

(29) 

Real 

97-104 

(30) 

Real 

105-112 

(31) 

0, 

1,  2, 

113-120 

(32) 

0, 

1,  2, 

121-128 

(33) 

0, 

1,  2, 

1-8 

9-16 

amsn(i ,1) 

AMSN (1,2) 

Real 

Real 

17-24 

AMSN (1,3) 

Real 

25-32 

AMSN(I,4) 

Real 

33-40 

AMSN (1,5) 

Real 

41-48 

amsn(i,6) 

Real 

49-56 

amsn(i ,7) 

Real 

57-64 

AMSN(l ,8) 

Real 

Initial  fraction 
Initial  fraction 
3 Target  frequency 

3 Target  frequency 

3 Target  frequency 

For  "Other”  Type 
60 ) only : 

Target  ID  Number 
Number  of  rounds 
mission. 

Number  of  rounds 
mission. 

Number  of  rounds 
mission. 

Number  of  rounds 
mission. 

Number  of  rounds 
mission. 

Number  of  rounds 
mission. 

Number  of  rounds 
mission. 


of  tank  survivors, 
of  APC  survivors . 
at  Low  Intensity, 
at  Mid  Intensity, 
at  High  Intensity. 

Missions  (TNl(l6)=20,  30,  or 
th 

of  I "other"  mission.  ^ 
105inm  system  needs  to  fire  I 

j_  i_ 

155mm  system  needs  to  fire  x 
175™  system  needs  to  fire  I^n 
203mm  system  needs  to  fire  Ith 
MARS  system  needs  to  fire  Ix 
LANCE  system  needs  to  fire  1^ 
HJ  system  needs  to  fire  I^n 
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APPENDIX  A 
PROGRAM  LISTING 
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*********************************** 

MAIN  PROGRAM 

*********************************** 
COMMON  W,W1,PII,CPET,RT,REF,EC1 

COMMON  CXIOI 16),TZR0,TMX,FACT,0ELT,P0ST(12,ll) ,WKS 
CO  MMONSYS I D( 10)*FRWM| 10 ) » TPFlM  1C  I , SRCF ( 10) , OROF ( 10) ,T8M(10) ,BLD(10 
l),RSPY(10),SNMX(10),DNMX(10),  HNMXI 10 ) » STYP ( 10) ,HBLD(10) .QBLDI10) 
COMMON  RNO 10(50)* HOT (50) ,CST( 50),RMX(50) .RELI50) ,OEP( 50) ,RTP(50) , 
1WARNI5J) ,WGTI(50),CSTI(5C),R2MX(50),RELI(50),DEPI (50)  , 

2RNGC50, 1C  ),CPR(50,10),CPS(  50, 1C ) ,RE ( 50, 10) ,AE ( 50,10) , SOP( 50 ,10 ) , 
3P0P(50,13),C0P(50,10),T0P(5L, 10 ) , AOP( 50, 10 ) , SWP ( 50, 10 ) , 

APWP(50,10) ,CWP( 50,10 ),TWP( 50, 10 ) , AWP I 50, 10 ) 

COMMON  NSITE< 100),FSID( 100), TA( 8, 100) , TO ( 8 , 100) ,XS(8,100) , 

1YS (8,100 ),SYSRD( 10,13) ,NRO( 12 ) ,NRW( 12 ) , ORVP ( 12, 1 2 ) , WRVP ( 12 , 12 ) 
COMMON  M IX  I D( 16),KSIG( 10 ),KKIG( 50 ) ,KFIG ( ICC ) ,CR TER A ,CRT (50 ) 

COMMON  TNI  30,300 ) , TLOST( 5, 1000) ,TOFT( 1000) ,A<27,100) , FT (6, 100) , 

IS  t 10,5),RDCNT(50,30),TUBFU( 100 ) ,NACO, SPER S, STANK , SAPC , SMW, 
2NQ,NTGT,N0MF,NCLP,NRP0,NRH2,NQ-)M,NQD,NFM,NFMD 
COMMON  TNI(33),TN28T,TN29T, TN3GT 

COMMON  REFIRE,WAIT,MAIT2,UA1T3,NA,NBA1,NBA2,NBA3,NEAI,NEA2,NEA3, 
1TR  »EXCES 1,EXCES2,AMSN(  550,8) 

COMMON  QUV ( 100 ) , CPOST ( 5),CPK( 10 ) ,CRE( 10) ,CCOV( 10) ,CSURV(10) 

COMMON  AMWS, APC, ATLVL, CPER, CR IT ,CRI TP ,CT I ,OEFSP , DSFLAG, DVFLAG,F 
COMMON  FH,FM, IFM, I FONE, I TC, MOUNT, L OSS, MATCH, MFE A T ,MORG , NAl , NB , NE 
COMMON  NFU, NOM,NP,NRDS,NSYS,ONCRT,PFRO, PERM, PO,QN,RPV,SMCRT, SON 
COMMON  ST,  SURV»SURVP*T»TK»T0FP*XVN,SAVE1»SAVE2»SAVE3 
CALL  PRELIM 
CALL  ROSYS 
CALL  RORND 
CALL  RDFU 

77  CALL  ROM IX 
CALL  TZERO 

1 ON*0.0 
CALL  RT  APE 
FR*T  N I ( 3 ) 

5 IF(TNI(8).LT.T +DELT-. 00001 )GOTO  2 
I F ( KOUNT . FQ. 0 ) GOT 0 AO 
GOTO  3 

2 IF  (TNI  (lb).EQ.20.0.0R.TNI  (16)  . EQ. 30.0. OR. TNI  ( 16) .EQ.60. ) NOM=NOMU 

78  NACQ=NACQ  *■  1 

I F ( TN I ( 2 ) .GT.  1.)  GOTO  20 
NT GT  = NTGT  ♦ 1 

SPERS*SP£RS*TNI(25)*TNI( 28) 

ST  ANK=ST  ANK  + TN I(26)*TNI( 29) 

SAPC=SAPC+TNI(27)*TNI(30) 

AMWS=AMWS+TNI I 1A) 

20  CALL  COMPAR 

IF(FR.EQ.l.O)  GOTO  l 
FR=FR-1 . j 
DN=  ON* 1 .0 

TNI(1)=T.NI(1)*100000.C*  ON 

IF (TNI ( 16).NE.20.0.AND.TNI( 16 ) .NE.30.0.AN0. TNI ( 1 6 ) . NE . 60. 0 ) GOTO  78 
ITC= ITC+1 

AMSN( ITC, 1 )=AMSN( I TC-1, 1 )♦ 1COCGO. 

DO  31  KJ=2, 8 

31  AMSNI ITC,KJ)=AMSN( ITC-l.KJ ) 

GOTO  2 

3 KT  =KOUNT 

DO  10  IT=1,KT 

IF(TN(17, IT ) .LE..5IG0T0  18 

A-3 


HP  001 
MP  002 
MP  003 
MP  00 A 
MP  005 
MP  006 
MP  007 
MP  008 
MP  009 
MP  010 
MP  Oil 
MP  012 
MP  013 
MP  01 A 
MP  015 
MP  016 
MP  017 
MP  018 
MP  019 
MP  020 
MP  021 
MP  022 
MP  023 
MP  02A 
MP  025 
MP  026 
MP  027 
MP  028 
MP  029 
MP  030 
MP  031 
MP  032 
MP  033 
MP  03 A 
MP  035 
MP  036 
MP  037 
MP  038 
MP  039 
MP  OAO 
MP  0A1 
MP  0A2 
MP  0A3 
MP  OAA 
MP  0A5 
MP  0A6 
MP  3A7 
MP  0A8 
MP  0A9 
MP  050 
MP  051 
MP  052 
MP  053 
MP  05A 
MP  055 
MP  056 
MP  057 
MP  058 
MP  059 
MP  060 


IF(TN(9«m  .GT.  T+DELT-. 00001)  GOTO  10 

MP 

061 

18 

IF (TN( 1,  IT  ) .EQ.O.OIGOTO  10 

HP 

062 

IF (MFEAT  .EQ.O )G9TC  17 

MP 

063 

DO  8 JK= 1 f MFEAT 

MP 

06  A 

IF!TN(1, IT).EQ.TDFT(JK))  GOTO  22 

MP 

065 

8 

CONTINUE 

MP 

066 

17 

CT 1=1000000 • 0 

MP 

067 

RE  F I RE=0 • 0 

MP 

068 

WAIT=0.3 

MP 

069 

WA  I T2-0 • J 

MP 

07C 

W A I T 3 = 3 • r* 

HP 

071 

NA*^ 

MP 

072 

OE  FSP  = 0 • v 

MP 

073 

NB  A1 =0 

MP 

07  A 

NB  A2  = 0 

MP 

075 

N B A 3 = 0 

MP 

076 

NE  A1 =0 

MP 

077 

NE A2-0 

MP 

07  8 

NE  A3  = 0 

MP 

079 

TR=3. 0 

MP 

08C 

DSFLAG=0.0 

MP 

08  1 

DV  FL  AG-0  .0 

MP 

082 

EXCES  1=0.0 

MP 

083 

EXCES2=0.0 

MP 

08  A 

IF(TN(16f  m.EQ.2D.0)G0T0  19 

MP 

085 

IF(TN(16,IT).EQ.3O.0)C0T0  19 

MP 

086 

IF  (TNI  16*  IT)  •EQ*60*‘>  )GOTG  19 

MP 

087 

NP  = TNI Af  I T ) ♦ 1.0 

MP 

088 

DO  11  J=  1 » 27 

MP 

089 

DO  11  K= 1 1 NFU 

MP 

090 

11 

A(  J,  K)  = 0.0 

MP 

091 

IF (TNC9f I T ) • LT • T ) GOTO  23 

MP 

092 

IF (LOSS. EQ.O )G0T0  7 

MP 

093 

DO  9 JL= 1 1 LOSS 

MP 

09A 

IF (TNI if IT) .EQ.TLOSTC ltJL) )GOTO  16 

MP 

095 

9 

CONTINUE 

MP 

096 

GOTO  7 

MP 

097 

16 

TN ( 28  f IT)  = TL0ST(3tJL) 

MP 

098 

TN(29,IT )=TLOST!AfJL) 

MP 

099 

TN  ( 30 » IT )=TL0ST(5t JL ) 

MP 

10  0 

L0SS  = L 3SS-1 

MP 

101 

I F ( LOSS  ♦ 1 .EQ.  JL)  GOTO  7 

MP 

102 

DO  32  J=  1 1 5 

MP 

103 

DO  32  K= JLt LOSS 

MP 

10  A 

32 

TLOST (JfK)=TLOST(JtK+l) 

MP 

105 

GOTO  7 

MP 

106 

19 

CALL  SPEC  I L ( IT) 

MP 

107 

IF (DEFSP.EQ.O.O)GOTO  6 

MP 

108 

NOPF=NHHF  ♦ 1 

MP 

109 

21 

CALL  REMOVE!  IT) 

MP 

110 

NF M=NFM  ♦ l 

MP 

111 

GOTO  18 

MP 

112 

22 

CALL  REMOVE!  IT) 

MP 

113 

NRPD-NRPD  ♦ 1 

MP 

11 A 

GOTO  16 

MP 

115 

6 

CALL  REMOVE!  IT) 

MP 

116 

NQ=NQ  + 1 

MP 

117 

NQ0M=NQ0M  ♦ 1 

MP 

118 

GOTO  18 

MP 

119 

23 

CALL  REMOVE! IT) 

MP 

120 

A-4 


13 

14 

15 

10 

40 

2tt 

29 

4 

30 

c * * 


10 


999 

101 

102 

.C3 


C * * 


C * * 


NQD*N0D  ♦ 1 
NQ*NQ  ♦ 1 
GOTO  10 
L*TN< 15, IT) 

GOTO ( 13, 14, 1 5 ) » L 
CALL  DIRSUPI IT) 

IFIREFIRE.EQ.l.OJGOTO  18 
IFITR.EQ.l.OIGOT?  21 
GOTO  10 

CALL  OIVISNI IT) 

IFIREFIRE.EQ.l.OIGOTO  18 
IFITR.EG.l.OIGOTO  21 
GOTO  10 
CALL  CORPI IT ) 

IFIREFIRE.EQ.l.OIGOTO  18 
IFITR.FQ.l.OIGOTO  21 
CO  NT INUE 
T*T*DELT 
DO  28  J= l , NFU 

IF (TUBFUI JI.LT.T)  TUBFU(J)=T 
00  29  J= 1 » NFU 
00  29  1=1,5 
FT ( I,J)  = FT(  1*1, J) 

T0UT=T7UT  *1.0 

IF (T0UT.NE.4.0)G0T0  4 

TOUT  = 0.0 

CALL  OUTPUT 

IF (T.GE.THX)GOTO  30 

GOTO  5 

REWINO  3 

GOTO  77 

ENO 

****************************** 

SUBROUTINE  PRELIM 

****************************** 

COMMON  (USE  MAIN) 

RE AO ( 5, 101 ) (CXIO(I),  1=1,16) 

MR  IT E (6, 101 )CXIO 
READ(5»1D2)TZR0»TMX»  FACT 
DE  LT  = 0.2  5 
DO  10  1=1,12 

READ  (5, 103)1  POST! I,J),J  = 1,11) 

H*  ALOGI 2.0) 

PI =3.14159 
PI  1 = 1. /PI 
WKS=_PI I /ALOGI .7) 

Ml *2 . 0*W 
RETURN 
FORMAT! 16A5) 

FORMAT(1'F7.4,10X) 

FORMAT! 1 1F7 .4 ) 

ENC 

****************************** 

SUBROUTINE  RCSYS 

****************************** 

COMMON  (USE  MAIN) 

READ(5,101)NSYS 
WRITEI6,  10DNSYS 
DO  1 1*1 , NSYS 

RE  AD  1 5, 102) SYS IOI  I ) , FRWHI  I),TPFU( I ) , SROF I I ) »OROF I I ) ,T8M(I ) , 


A-5 


* 

* 


* 


* * 
* * 


* * 
* * 


MP  121 
MP  122 
MP  123 
MP  124 
MP  125 
MP  126 
HP  127 
MP  128 
MP  129 
MP  130 
MP  131 
MP  132 
MP  133 
MP  134 
MP  135 
MP  136 
MP  137 
MP  138 
MP  139 
MP  140 
MP  141 
MP  142 
MP  143 
MP  144 
MP  145 
MP  146 
MP  147 
MP  148 
MP  149 
MP  150 
MP  151 
MP  152 
PRE001 
PRE002 
PRE093 
PRE004 
PRE005 
PRE006 
PRE007 
PRE008 
PRE009 
PREOIO 
PREOll 
PRE012 
PRE013 
PRE014 
PRE015 
PRE016 
PRE017 
PRE018 
PRE019 
PRE020 
SYSOOl 
SYS002 
SYS003 
SYS004 
SYS005 
SYS006 
SYS007 
SYS008 


. 


1 BLD( 1 ) »RSPY ( I ) ,SNMX(  I ) , DNMX ( I I, HNMX( I ) « STYP ( I ) 

HBLOC I )=.5*BLD( I ) 

GBLO( I )=.25*BLD( I ) 

TBM(  I )=TPM(  I )/br>. 

SROF ( t)*SROF( I ) *60.0 
CROF ( I)=CROF(  l)*60.0 
SNMX ( I )=  TPFU ( I )*SNMX( I ) 

DNMX ( I )=TPFU( I ) *DNHX ( I ) 

1  HNMX( I)=rPFU( I)*HNHX( I) 

999  RETURN 

lvl  FORMAT (1615) 

10<.  FORMAT(IOF7.4,  i^X  ) 

ENO 

Q*********************************** 

SUBROUTINE  RDRND 

C*********************************** 
COMMON  (USE  MAIN) 

READ(5,l 31)NRDS 
WRITE(6,  10DNRDS 
DO  4 1=1.  NRDS 

READ(5,1 32)RNDID( I >,WGT( l ),CST( I ) , RMX ( l ),REL( I ) ,DEP(l ) »RTP ( I ) .WARN 
1(1  ) 

WGT I ( I ) * 1 «/WGT ( I) 

CSTI( I)=1./CST(  I) 

R2  MX ( I ) = RMX ( 11**2 
RELK  I)=1./REL(  I ) 

DEPI( I)=1./DEP(  I ) 

RE  AD (5.1 >2) <RNG( I.J), J*l, 10), (CPR( I,J),J=1,10), (CPS(  I » J ) » J = 1 ,10) 
IF(RTP( I).EQ.1.)G0T0  1 
CALL  HEINP( I ) 

GOTO  2 

1 CALL  ACM INP( I) 

2 DO  3 J=l,10 

3 RNG( I ,J)=RNG( I.J )**2 

4 CONTINUE 

999  RETURN 

101  FO  RMAT (1615) 

102  F0RMAT(l)F7.4,10X» 

END 

C*********************************** 
SUBROUTINE  ACMINP( I) 

c*********************************** 
DIMENSION  AL(10) 

C0MM0N(USE  MAIN) 

READ(5,101)SRE,REZ,SR0,SRW,EN 

SR0=SR0*EN 

SRW=SRW*EN 

DO  l J=l,10 

RE ( I , J )=REZ+RNG( I,J)*SRE 
1 AE(I.J)  = PII  / ( RE(  I.J)  **  2 ) 

REA0(5,iJl)(AL(K),K*l»10) 

DO  2 J=l,10 
PRO=-SRO  * AE(  I.J  ) 


SYS009 
SYS010 
SYS011 
SYS012 
SYS013 
SYS014 
SYS015 
SYS016 
SYS017 
SYS018 
SYS019 
SYS020 
SYS021 
RND001 
RND002 
RND0D3 
RNDQ04 
RND005 
RND006 
RN0007 
RND008 
RND009 
RND010 
RND011 
RND012 
RNDU13 
RND01 A 
RND015 
RND016 
RND017 
RND018 
RND019 
RN0020 
RN0021 
RND022 
RND023 
RND024 
RN0025 
RND026 
ICM001 
ICM002 
ICM003 
ICM004 
ICM005 
ICM006 
ICM007 
I C MOOS 
ICM009 
ICM010 
ICMOll 
I C MO  12 
ICM013 
I C MO 14 


A-6 


999 

10* 

C * 

C * 


999 

10: 

C * 

C * 


PRW=-SRW  ♦ AE( It J I 

SOP( 1 1 J ) = l.-EXP! PRG*AL III) 

POP( I ,J)=1.-EXP!PR0*ALI  2)) 

COP( I, J)=1.-EXP(PR0*AL< 3)) 
T0P!I,J)=1.-EXP!PR0*AL!4) ) 
A0P!I,J)=1.-EXPIPR0*AL<5)  ) 

SWP! I* J)=1.-EXPIPRW*AL<6) ) 

PH  PI  I ,J)=l.-EXP!PRW*AL<7) ) 

CWPI I ,J)=l.-EXPIPRW*ALI8 ) ) 

THPI I»J)-=1»-EXP!PRW*AL(9) ) 

2 AWP(I,J)=1.-EXP!PRW*AL<10)) 
RETURN 

FORMAT! 10F7. 4, 1JX ) 

ENO 

***************** 

SUBROUTINE  HEINPI  I I 
***************** 
OIMENSIIN  AL 1 100 1 
COHMONIUSE  MAIN! 

READ!  5,1  JIM  AL(J),J=I,  100 » 

00  1 J= l » 10 
RE ( I , J Is . 3 
AE ( I , J ) = u . 

SO PI  I »J)=SQRT ( AL! J)*WKS  ) 

POP!  I ,J)=SQRT< AL! J + 10)*WKS  I 
COP! l,J)=SQRT< AL! J+29)*WKS  I 
TOP! I ,JI =SORT! AL! J+30)*WKS  ) 
A0P!i,J>=SQRT!ALIJ*40)*WKS  » 
SWP! I,J)=SQRT< AL!J+50)*WKS  ) 
PWPI I,J)=SQRTIALI J*6C)*WKS  ) 
CWPI I , J) =SQRT! AL! J+70) *WKS  ) 
THPI I ,J)=SQRT< AL! J*80)*WKS  ) 

1 AWP! I,J)=SQRT!AL< J*90)*WKS) 
RETURN 

F0RMAT<10F7.4,1~X) 

ENO 

***************** 

SUBROUTINE  RCFU 

***************** 

COMMON  IUSE  MAIN) 

READ!5,U1)NFU 
WR  IT  El  6, 101 )NFU 
00  1 1=  1,  NFU 
READ!5,1jI)NSITE( I ) 

NS=NS ITE ! I ) 

RE  AO ( 5, 102 ) FS ID! I ) 

00  1 J= 1 , NS 

RE  AO <5,102 )T A! J, I ) , TO! J,  I)  , XS I J 
LT  A = TA!J,I) 

XT  A = LT  A 

TAIJ,I)  = XT  A ♦ (TAlJtl)  - XT  A ) 
LTD  = TO!  J,  I ) 

XT  0 = LTO 

1 TO(J,I)  * XTD  ♦ ITOIJtl)  - XTD ) 
CO  3 1=1, NSYS 

3 RE A0( 5 , 103) ISYSROI I, J ), J = 1,1C) 

00  2 1=  1,12 

RE AD! 5, lo 1 ) NP,NRO! I ),NRW| I ) 

LK 1=NR0! I ) 

LK2=NRW( I ) 


***************** 

***************** 


***************** 

***************** 

I ) , YSt  J , I ) 

/ .6 
/ .6 
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I CHOI  5 
ICM016 
ICM017 
ICM018 
ICM019 
ICM020 
ICM021 
ICM022 
ICM023 
ICM024 
ICM025 
ICM026 
ICM027 
ICM028 
HE  001 
HE  042 
HE  003 
HE  004 
HE  005 
HE  0C6 
HE  007 
HE  008 
HE  009 
HE  010 
HE  Oil 
HE  012 
HE  013 
HE  014 
HE  015 
HE  016 
HE  017 
HE  018 
HE  019 
HE  020 
HE  021 
HE  022 
FU  001 
FU  002 
FU  003 
FU  004 
FU  005 
FU  006 
FU  007 
FU  008 
FU  009 
FU  010 
FU  Oil 
FU  012 
FU  013 
FU  014 
FU  015 
FU  016 
FU  017 
FU  018 
FU  019 
FU  020 
FU  021 
FU  022 
FU  023 
FU  024 


999 

101 

102 

103 

C * * 

C * * 


3 

5 

4 

6 

999 

101 

1C2 

103 

10* 

106 

*07 

108 

*09 

C * * 


1 


3 

5 


8 


11 


RE  AD( 5» 103)  CORVPC I, J),J=1,LK1) 

RE  ADC  5, 103) CWRVPC I » J ) , J=l,LK2 ) 

RETURN 
FORMATC 1615) 

F0RMATC4F8.4.48X) 

FORMATC 11F7. 4) 

ENO 

********************************* 

SUBROUTINE  RDM  IX 

********************************* 

COMMON  CUSE  MAIN) 

WRITEC6, 102) 

RE  ADC  5,1  ODCMIXIDC  I),  1*1, 16) 

WRITEC6, 1 01 ) M IX  ID 

RE  AO  C 5, 1 04)  IKSIGC I ), I=1»NSYS ) 

RE  ADI  5, 1 4 ) CKRIGC I), 1 = 1, NR OS) 

RE  ADC  5, 104 ) CKF IGC  I ), 1=1, NFU) 

READC5,103)CRTERA 
ICRT=CRTERA 
WRITEC6.106)  KSIG 
WR ITECo, 109)  KRIG 
MR  ITEC6, 107 ) KFIG 
WR  ITEC6, 108)  I CRT 
GOTO! 3,4), ICRT 
DO  5 1 = 1 , NRDS 
CRT  C I ) = CST  C I ) 

GOTO  999 
DO  6 1=1, NRDS 
CRT C I ) = WGT  C I ) 

RETURN 
FORMATC 16A5) 

FORMATC 1H1) 

FORMATC 10F7. 4, 10X ) 

FORMAT C 80  1 1 ) 

FO  RMATC  22H0SYSTEMS  IN  THIS  MIX  =,1014) 

FORMAT!/  25H0F IRE  UNITS  IN  THIS  MIX  =,4012/,  5512/, 5512) 

FORMAT C/22H0 ALLOC ATI  ON  CRITERIA  =,I4/38H  1 IS  LEAST  COST  *+*  2 IS 
1LE AST  WEIGHT) 

FORMATC 2 1H0R0UNDS  IN  THIS  MIX=,  5012) 

ENO 

********************************* 

SUBROUTINE  TZERO 

********************************* 

COMMONCUSE  MAIN) 

KOUNT  = Oi  MAT CH=Ot  MFEAT  = 0$  LOSS  = 0$  ITC  = 0 

DO  1 1 = 1,30 

DO  1 J= 1,300 

TNCI,J)=0.0 

DO  3 1=1,5 

DO  3 J=l,1000 

TLOSTC I, J)=0.0 

CO  5 1=1,1000 

TOFT  C I ) = 0.0 

DO  8 1=1,6 

DO  8 J=1 , NFU 

FT ( l , J )=  3.0 

00  11  1=1 »NSYS 

00  11  J= 1 , 5 

SC  I, J)=0.0 

DO  12  1=1, NRDS  A_8 


FU  025 

FU  026 

FU  027 

FU  028 

FU  029 

FU  030 

FU  031 

MIX001 

MIX002 

MIX003 

MIX004 

MIX005 

MIX006 

MIX007 

MIX008 

MI X009 

MIXOiC 

MIX01  1 

MI X012 

MIX013 

MIX014 

MIX015 

MIX016 

MI X01 7 

MI X018 

MIX019 

MIX020 

M 1X021 

MI X022 

MIX023 

MIX024 

MI X025 

MI X026 

MIX027 

MI X028 

MIX029 

MIX030 

MI X031 

MIX032 

MIX033 

TZR001 

TZR002 

TZR003 

TZR004 

TZR005 

TZR006 

TZR007 

TZR008 

TZR009 

TZR010 

TZR011 

TZR012 

TZR013 

TZR014 

TZR015 

TZR016 

TZR017 

TZR018 

TZR019 

TZR020 


12 


2 

9 99 

C * ♦ 
C * * 
i 

20 

21 

22 

23 

50 

51 


53 

999 

102 

105 

C * * 

C * * 

1 

2 

999 

C * * 
C * * 


DO  12  J= l » 30 
RDCNT ( 1 1 J I = 0. 

AMWS*0. 

NACQ=0  i SPERS=0.*  STANK *0.  * SAPC*0.  % NQ  = 0 i SMW=0.  $ NTGT-0 
N0MF=O  $ NQLP=0  * NRPD*0  $ NRH2=0  % NQ0M=0  $ NQD=0  i NFH=0 
NFMD=0  t N0M=0 
T*  TZRO 

DO  2 Is 1 »NFU 
TUBFUl  I ) =T 
RETURN 
END 

********************************* 
SUBROUTINE  RT APE 

********************************* 
COPMOMUSE  MAIN) 

REA0(3,102)  TNI 

IF!  TNI ( 10 ) .GT.  3.  * TNI17)  ) GOTO  1 
KF  ACT  = FACT 

GO  TO (20,  21, 22,23), KF ACT 
TN 1(3 )=TN 1131) 

GO  TO  50 
TNI(3)=TNI(32) 

GO  TO  50 
TN I ( 3 ) = 1.0 
GO  TO  50 
TN I ( 3 ) = T N I ( 33  ) 

IF ( TNI ( 3 ) . E0.9. ) GOTO  51 

IF (TNI (16). EQ. 20.0. OR. TNI ( 16 ) .EQ. 30.0. OR . TNI ( 1 6 ) . EQ. 60. 0) GOTO  52 
GOTO  999 

IF(TN 1(16). EQ. 20. O.OR.TN 1(16) .EQ. 30.0. OR. TNI ( 16) .EQ. 60.0) GOTO  53 
GOTH  1 
IT  C= I T C*  1 

RE AD( 3, IU5 ) ( AMSN( ITC, J ), J = l,8  ) 

GOTO  999 
IT  C= ITC* 1 

READ! 3, 105) ( AHSNI ITC , J ) , J- 1 , 8 ) 

I T C= I TC-1 
GOTO  1 
RETURN 

FORMAT! F7. I, 16F7. 2, /16F8 . 2 ) 

FO  RM  AT  ( 8 F8 . 2 ) 

ENC 

********************************* 

SUBROUTINE  REMOVE(K) 

********************************* 
C0MM0N1USE  MAIN) 

IKZ=K0UNT-1 

IF  ( IKZ  ♦ 1 .EQ.  K)  GOTO  2 
DO  1 J=K , I KZ 
DO  1 1=1,30 
TN ( I , J )=TN( I,J*1) 

TN(1,K0UNT)*0.0 
KOUNT= IKZ 
RETURN 
END 

********************************* 

SUBROUTINE  COMPAR 

* ******************************** 

COPMONIUSE  MAIN) 

IF (TNI(2).LT.2.0)  GOTO  10 

A-9 


TZR021 
TZR022 
TZR023 
TZR02A 
TZR025 
TZR026 
TZR027 
TZR028 
TZR029 
TZR030 
TZR031 
TPE001 
TPE002 
TPE003 
TPE004 
TPE005 
TPE006 
TPE007 
TPE008 
TPE009 
TPE010 
TPE011 
TPE012 
TPE013 
TPE014 
TPE015 
TPE016 
TPE017 
TPE018 
TPE019 
TPE020 
TPE021 
TPE022 
TPE023 
TPE024 
TPE025 
TPE026 
TPE027 
TPE028 
TPE029 
TPE030 
TPE031 
RMV001 
RMV002 
RMV003 
RMV004 
RMV005 
RMV006 
RMV007 
RMV008 
RMV009 
RMV010 
RMV011 
RMV012 
RMV013 
CMP0°1 
CMP002 
CMP003 
CMP004 
CM POO  5 


IF (MFEAT . EQ.O ) GOTO  11 
00  I 1*1, MFEAT 

IF(TNI( l ).EQ.TOFT(  IIIGOTO  12 

1 CONTINUE 
GOTO  11 

12  IF(TNI(2).EQ.2.0)  GOTO  6 
MFEAT=MFEAT-1 

IF (MFEAT  ♦ 1 .EQ.  II  GOTO  6 
DO  5 J=I, MFEAT 

5 TOFTI J)=TOFT( J+I) 

6 NR PD=NRPO  ♦ 1 
GOTO  999 

11  IF(LOSS.EQ.O)  GDTC  15 
DO  Z 1*1. LOSS 

IF(TNI(i).EQ.TLOST(l,I))  GOTO  14 

2 CONTINUF 
GOTO  1-3 

14  TNI(28)  = TL0ST<3,  I ) 

TNI(29)  = TL0ST<4,  I ) 

TNI  (30)*TL0ST(5» I I 
LOSS  = LOSW 

I F ( LOSS  ♦ 1 .EQ.  I)  COTO  15 
DO  7 J=1 » 5 
DO  7 K= I , LOSS 

7 TL0ST( J,K)=TL0ST( J,K+l) 

15  M*  1 

IF(KOUNT.EQ.O)  GOTO  16 
21  DO  3 J=M, KOUNT 

IF (TNI (l).EQ.TNC 1, J)  ) GOTO  17 

3 CONTINUE 
GOTO  10 

19  M*J  + 1 

I F ( M. GT. KOUNT ) GOTO  10 
GOTO  21 

17  TN I ( 28 ) = TN( 28. J I 
TNI(29)=TN(29»J) 

TN I ( 30 )=  T N( 30. J ) 

0=  ( TN I ( l 1 ) —TN ( 1 1 , J ) ) **2* ( TNI ( 12 )—TN(  12, J>  >**2 
IF (D.GE.0.04  JGOTO  19 
NRW2*NRW2  ♦ 1 
CALL  REMjVE(J) 

10  IF  (KOUNT. EQ.OIGGTO  16 
CO  4 J=l, KOUNT 

IF ( TN I ( 14 ).LT.TN( 14. J) ) GOTO  4 
IF (TNI(14I.GT.TN( 14, J) > GOTO  18 
IF(TNI(9).GE.TN(9,J)  » GOTO  4 

18  MATCH=J 
GOTO  20 

4 CONTINUF 

16  MATCH=K0UNT+1 

20  MAX=300 

I F (MATCH  .LE.  MAX)  GOTO  8 

IF (TNI( 16).NE.20..AN0.TNI( 16) .NE .30. . AND. TN I (16) .NE.6^. ) GOTO  25 
NQ*NQ  ♦ l 
nqom=nqtm  ♦ 1 

G0T0999 
25  NQ=NQ  ♦ 1 

NQLP=NQLP  + 1 
GOTO  999 

8 IF (KOUNT  .LT.  MAX)  GOTO  27 


CMP006 
CMP007 
CMP008 
CMP009 
CMP010 
CMP011 
CMP012 
CMPOl 3 
CMP014 
CMPOl 5 
CMP016 
CMPOl 7 
CMPOl 8 
CMP019 
CMP020 
CMP021 
CMP022 
CMP023 
CMP024 
CMP025 
CMP026 
CMP027 
CMP028 
CMP029 
CMP030 
CMP031 
CMP032 
CMP033 
CMP034 
CMP035 
CMP036 
CMP037 
CMP038 
CMP039 
CMP04Q 
CMP041 
CMPJ42 
CMP043 
CMP044 
CMP045 
CMP046 
CMP047 
CMP048 
CMP049 
CMP050 
CMP051 
CMP052 
CMP053 
CMP054 
CMP055 
CMP056 
CMP057 
CMP058 
CMP059 
CMP060 
CMP061 
CMP062 
CMP063 
CMP064 
CMP065 


A-10 


IF  (TN(  16, KOUNT  > .NE. 20. .AND. TN ( i6,K0UNT ) .NE .30. . AND. TN ( 16 ,K0UNT ) . 
1NE.60.)GGT0  26 
NQ*NQ  »■  1 
NQOM=NQOM  ♦ 1 
GOTO  13 

26  NO*NQ  ♦ 1 
NQLP=NOLP  «•  1 

13  KOUNT  * KOUNT  - 1 

27  K = KOUNT-MATCH+l 
IFCK  .EQ.  0)  GOTO  9 
K I =KOUNT 

DO  22  J=i,K 
00  23  1=1,30 

23  TNI  I , K I ♦ 1 )*TN  ( I , K I ) 

22  K I =K I -1 

9 DO  24  1=1,30 

24  TNI  I , HAT  CH ) = TN II  I ) 

KOUNT=K  HINT*  1 

999  RETURN 
END 

♦ ♦♦♦it****************************** 

SUBROUTINE  DIRSUPI IT ) 

*********************************** 

COMMONIUSE  MAIN) 

I DS1=0 
MO  RG=  1 

CALL  AMASS! IT) 

1FINA.E0.0)  GOTO  1 
RANGE* 100000C. 

DO  50  IDS=1»  NA 

IF (A(9,IDS) • LE .RANGE ) GOT 3 3 

GOTO  5j 

3 RANGE* A( 9, IDS ) 

IDS1* IDS 

50  CONTINUE 

I F ( IDS  1 • EQ.O )GOT 0 1 
IR*A(24, I DS1 ) 

IF ( AC  13,  IDS1).GT.A(4, IDS1))GOTO  l 
XVN=A( 13, I0S1) 

IS  =A( 1, IDS1) 

C0NSTR=15.0 

IF (TNI  14, IT).GE.10.0)C&NSTR=3C.C 
HA  IT3=XVN*WGT I IR) 

IF  (WAin.GT.CONSTR)GOTO  1 
IFITNI24, ITl.LT.T)  GOTO  4 

IF (TNI  4, IT).EQ.TNI19,IT).AND.TN(5,IT).EQ.TN(20,IT).AND.TN(6,IT).EQ 
l.TN(21,IT).AND.TN(7,IT).EQ.TN( 22, IT) )GOTO  4 
NP  = TN ( 19,  IT)  ♦ 1,0 
RT  =TN( 22, IT ) 

PERW=TN( 20, IT) 

PERO=TN( 21, IT) 

RPV=TPFU( IS ) * A( 5, IDS1) 

AT  LVL  = 0, 0 
CPER=0.0 
CPET=0, 0 

CALL  INTERPI IR, IDS1) 

CALL  EFFECT! I0S1, IR, IT) 

4 I X Z*  A( 27 , IDS  1 ) 

FT (6,  IXZ  ) = FT( 6, IXZ  )*A(13,IDSI) 

A9 *SORT ( A (9 , IDS  1 ) ) « ,, 


CMP066 
CMP067 
CMP068 
CMP069 
CMP070 
CMP071 
CMP072 
CMP073 
CMP074 
CMP075 
CMP076 
CMP077 
CMP078 
CMP079 
CMP080 
CMP08 1 
CMP082 
CMP083 
CMP084 
CMP085 
DS  001 
DS  002 
DS  003 
DS  004 
OS  005 
DS  006 
DS  00  7 
DS  008 
DS  009 
DS  010 
OS  Oil 
DS  012 
DS  013 
DS  014 
DS  015 
DS  016 
DS  017 
DS  018 
DS  019 
DS  020 
DS  021 
DS  022 
DS  023 
DS  024 
OS  02  5 
DS  026 
OS  027 
DS  028 
DS  029 
DS  030 
DS  031 
DS  032 
DS  033 
DS  034 
DS  035 
DS  036 
DS  037 
DS  038 
DS  039 
DS  040 


IRNG*A9 
RNCINT=IRNG 
RNGI NT=RNG INT ♦ .5 

IFCA9  .GE.RNGINT  )IRNG=IRNG»1 

IFCA9  .GE.30.0)IRNG=30 

ROCNT ( IR, IRNG ) = ROCNT ( IR,  IRNG)*A( 13* IDS1) 

TU  BFll ( IXZ)=TUBFU(  IXZ )*TRM(  IS ) ♦AC  5,  IOS1 ) 

IFCSTYPC IS ) .NF.2.C (GOTO  6 
GOTO  7 

6 B=  (AC  13,  IDS  I)- AC  5,  IDSl)*TPFU(  I S ) ) / C A C 5,  I DS1 ) * TPF  U C I S)  *A(3,IDS1 ) ) 
IF (TNC 10, IT ) .EQ.  0.1  B=B+.C67 

B=AMAXKO.O,B) 

TUBFU(IXZ)=TUBFU(  IXZJ+U 

7 IFCTNC24,  ID.GE.T)  GOTO  9 
AC  19, IDS  1 ) * C. 

A(2D,I0S1)=  0. 

AC  21, IDS  1 Is  0. 

A(  22 , IDS  l ) = 1. 

A( 23, IDS  1 )=  1. 

9  AS UM=  AC 1 9 , IDSl ) »AC  20, IDS1)*A( 21.IDS1) 

TO  EP*TN( 25, IT ) 

IFCNP.LT. 6. OR.NP.GT.il )GOTO  10 
TO  E=TN( 26, IT  >*4.G 

IF (NP.EQ.6.UR.NP.EQ.7)T0E=TN( 27, I T » * 15.^ 

TOEP=AMAXl(0.0,TNC25, I Tl— TOE ) 

IFC ASUM. EQ.0.9)ASUM= 1.0 

10  SC  IS,  1 ) = S(  IS,  l)  + A(  13,  I DS 1 1 *WGT ( IR) 

SC IS,2)=S(IS,2)*AC13,IDS1)*CST( IR) 

SC IS,3)-S(IS,3)+( l .0— ASUM )*TN(28»IT)*T0EP 
SC  IS»4)=S( IS,4)*( 1.0-A(22,IDS1) ) *TN ( 29 , l T ) *TN C 26 , I T ) 

SC  IS, 5)* SC IS,5)  + ( 1.0-AC23, IDSl) )*TN(30»IT)*TN(27»IT) 

S AVE1=TN ( 28,  IT) 

SAVE2  = TNC  29, IT) 

SAVE3*TN(30, IT) 

TNC 28, IT)® TNC 28, IT)*C ASUM) 

TNC29, IT )®TN(29, IT ) * AC  22, IDSl ) 

TNC30.IT )=TN( 30, IT  >*A( 23, IDSl I 

GOTO (11, 11, 11, 11, 11, 12, 12, 13, 13, 13, 13, 11 ) ,NP 

11  SMW=SMW  ♦ (SAVEl  - TNC  28,  IT ) ) * 2.0  * TNC14.1T) 

IFCTNC28, IT ) .LE.TNC 18, IT ) JGOTC  8 

GOTO  14 

12  SMW=SMW  ♦ CSAVE3  - TNC30.IT))  * 2.0  * TN(14,IT) 

IFCTNC30, IT) .LE.TNC 18, IT)  )GuTO  8 

GOTO  14 

13  SMW=SMW  ♦ CSAVE2  - TN(29,IT))  * 2.0  * TNC14,IT) 

1FCTNC29, IT ) .LE.TNC 18,  IT  ) )GOTG  8 

14  LOSS  = LJSS  ♦ 1 
TLOST  C 1 , LOSS  ) = TNC 1, IT) 

TL0STC2, LOSS)® TNC 3, IT) 

TLOST ( 3,L0SS)®TN(28, IT) 

TL0ST(4»L0SS)=TN(29»IT) 

TLOST C 5, LOSS  )»TN( 30, IT) 

TR®1 .0 

GOTO  999 

8 MFEAT*  MFEAT  ♦ 1 
TOFT(MFEAT)  ®TN( l, IT) 

NFMD=NFMD  «•  1 

TR=1.0 
GOTO  999 

1 NEA1=NA  . 


OS 

341 

DS 

042 

DS 

043 

DS 

044 

DS 

045 

DS 

046 

DS 

047 

DS 

048 

DS 

049 

DS 

050 

DS 

051 

DS 

052 

DS 

053 

DS 

054 

DS 

055 

DS 

056 

DS 

057 

DS 

058 

DS 

059 

DS 

360 

DS 

061 

DS 

062 

DS 

063 

DS 

064 

DS 

065 

DS 

066 

DS 

067 

DS 

06  8 

DS 

369 

DS 

070 

DS 

071 

DS 

072 

DS 

073 

DS 

074 

DS 

375 

DS 

076 

DS 

077 

DS 

07  8 

DS 

079 

DS 

080 

DS 

081 

DS 

082 

DS 

083 

DS 

084 

DS 

085 

DS 

086 

DS 

087 

DS 

088 

DS 

089 

DS 

090 

DS 

091 

DS 

092 

DS 

093 

DS 

094 

DS 

095 

DS 

096 

DS 

097 

DS 

098 

DS 

099 

DS 

100 

I 


C * ♦ 


NBA1=MINj( l.NA) 
OS  FLAG* l .0 
CALL  DiV ISN( IT ) 
RETURN 
END 


****** 


***************** 


C * * 


lu 

1 


12 

15 


13 

999 

. C * * 

C * * 


SUBROUTINE  I NT ERP I IR, I A ) 
************************ 
COMMONIUSE  MAIN) 

RG=A(9, I A ) 

DO  10  K= 1 » 10 
IF (RG-RNGI IR,K))lf 2, 10 
CO  NT INUE 
KS  = K - 1 

01  = RG  - RNG( IR.KS) 

D2*9NG( IR.K )-RNG( IR, KS ) 

RA=01/02 

CPER=RA* (CPR( IR.K )-CPR( IR,KS) )*CPR( IR.KS) 

CP  ET  = RA* ( CPS ( IR»  K )-CPS( IR.KS ) )*CPS (IR.KS) 

CP  K ( 1 I = R A*C  SOP( IR,K»-SOPI IR,KS) >*SOP ( IR ,KSI 
CPK(2)=RA*(PCP( IR,K)-POP( IR.KS) )*P0P{ IR.KS) 

CPK  (3 I=RA*( COP(  IR»K )— COP ( IR.KS)  )*CCP( IR.KS) 
CPK(4)=RA*(T0P( IR.K)— TOPI IR.K S ) ) *TOP (IR.K S) 
CPK(5)=RA*(A0P( IR,K) -AOP ( IR.KS) )*AOP( IR.KS) 
CPK(6)=RA*(SWP( IR.K )— SWP ( IR.KS) )*SWP (IR.KS) 
CPK(7)=RA*(PWP( IR.K )-P WP ( IR.K S))*PHP( IR.KS) 
CPK(8)=RA*(CWP( IR.K )-CWP( IR.KS) )*CWP( IR.KS) 
CPK(9 )=RA*(TWP( IR.K ) — TWP ( IR.KS)  )*TWP( IR.KS) 

CPM  10)=KA*(  AWP(  IR.K  )-AWP(  IR.KS  ) )*AWP(  IR.KS) 

RE I=RA*( RE( IR.K)-RE( IR ,K  S ) )*RE ( IR.KS ) 

00  14  L=  1,10 
CRE(  L ) = RE  I 
GOTO  15 

CPER=CPR( IR.K) 

CP ET  = CPS ( IR.K  » 

CP  K ( 1 )=SGP( IR.K) 

CPK(2)=P0P( IR.K) 

CPK(3I=CCP( IR.K) 

CPK ( 4 )=T  OP ( IR.K) 

CPK ( 5 )=AjP ( IR.K) 

CPK(6)=SHP( IR.K) 

CPK( 7 )=PWP( IR.K) 

CPK ( 8 ) =CWP ( IR.K) 

CPK(9)=TWP( IR,K) 

CPK ( 10)= AWP( IR.K) 

00  12  L=  1 » 1C 
CRE(L)=RE( IR.K) 

IF(RTP( IR).EQ.1.0)G0T0  999 
00  13  L= 1 , 10 
CR  E ( L ) = CPK ( L ) 

CPK( L )=. 3 

RETURN 

END 

************************ 
SUBROUT INE  AHASS( IT ) 

************************ 
DIMENSION  TEMPA( 12) 

COMMON  (USE  MAIN) 

00  10  JF= l ,NFU 

IF ( KFIG( JF ) .NE.MORG )G0T0  1C 


********* 


********* 

********* 


OS  101 
OS  102 
OS  103 
OS  104 
OS  105 
INT001 
INT002 
INT003 
INT004 
INT005 
INT006 
INT007 
INT008 
INT009 
INTOIG 
INT011 
INT012 
INT013 
INT014 
INT015 
INT016 
INT017 
INT018 
INT019 
INT020 
INT021 
INT022 
INT023 
INT924 
INT025 
INT026 
INT027 
INT028 
INT029 
INT030 
INT031 
INT032 
INT033 
INT034 
INT035 
INT036 
INT037 
INT038 
INT039 
INT040 
INT041 
INT042 
INT043 
INT044 
INT045 
INT046 
INT047 
INT048 
AMS001 
AMS002 
AMS003 
AMS004 
AMS005 
AMS006 
AMS007 


IFITUBFUI JF) .GE.I T+DELT- .00001 ) ) COTC  10 

AMS008 

00  11  IS  = l » NSYS 

AMS009 

I F ( KS IG( (S).EQ.O)  GOTO  11 

AMS010 

IF (FS IOC JF) .NE.SYSIDI IS) IGOTO  11 

AMS011 

GOTO  1 

AMS012 

11  CONTINUE 

AMS013 

WR  IT  El  6,  101 > FS 10( JFI.MORG 

AM SOI  A 

01  F0RMATU2H  FIRE  SYSTEM, F8. 2. 25HIS  NOT  IN  LIST 

OF  SYSTEMS, 9HECHEL0N 

AMS015 

1 * , I 5 ) 

AMS016 

STOP 

AMS017 

1 NA=MA* l 

AMS018 

A( 27 , NA) = JF 

AMS019 

A(  1 , N A ) = IS 

AMS020 

A( 2,NA)=TUBFU( JFI 

AMS021 

R=HBLD<  ISURSPYI ISIMT-TZRO) 

AMS022 

Z*R-FT(6, JF> 

AMS023 

IF (TNI  14, IT) .GE.10.0)Z=AMIN1CR+QBLDI I S ) , 24 .0*RSPY ( I S I ♦HBLO ( I S ) I- 

AMS02A 

1FT (6, JF) 

AM SO 2 5 

R=HNMX(  IS)-FT(6»JF)*-FT(2»JF) 

AMS026 

R*AMINHR,Z) 

AMS027 

NS=NSITFC JF) 

AMS028 

DO  19  INS= 1 , NS 

AMS029 

IFIT. IT. FAUNS, JF)  )GOTO  2 

AMS030 

IF (TA( INS, JF  J.LE.T.AND.T.LE.TDI INS, JF) IGOTO  3 

AMS031 

i9  CONTINUE 

AMS 032 

WRITEI6, .00) JF 

AM SO 3 3 

00  F0RMATU6H  ERROR  FIRE  UN  I T,  13, 39HD0ES  NOT  HAVE 

A TIME  TO  MATCH  GAM 

AMS03A 

IE  TIME) 

AMS035 

STOP 

AMS036 

2 A( 5»NA)=FRWM( IS) 

AMS037 

GO  T j A 

AMS038 

3 A(5,NA)=1.0 

AMS039 

A A(6,NA)=XS( INS, JF ) 

AMSOAO 

A( 7 ,NA)  = YSI I NS , JF ) 

AMSJA1 

IFITNI8,  IT).EQ.TNC9,  ITMGGTC  5 

AMS0A2 

Z=SNMX( l S ) *A ( 5, NA ) 

AMS0A3 

A ( 3, NA)  = SROF 1 IS) 

AMS3AA 

GOTO  6 

AMS0A5 

5 Z=  DNMX I IS )*A( 5,NA) 

AMS0A6 

A(3,NA)=DR0F( IS) 

AMS0A7 

6 R=  AMIN1 ( R,Z ) 

AMS0A8 

A( A , NA )-R 

AMS0A9 

A ( 8, NA)=MORG 

AMS050 

A(  9,NA)=  ( A(  6 , NA  ) -TNI  11,  IT  ) )**2MA(  7,NA)-TN(12, 

IT) ) **2 

AMS051 

IF (AIA,NA).LE.O.O)GOTO  2A 

AMS052 

CT  MI N=CT I 

AMS053 

DO  13  LSYS=1,NSYS 

AMS05A 

I F ( SYS  ID ( IS  ) .EO.SYSRDILSYS, 1) )GoTO  7 

AMS055 

13  CONTINUE 

AMS056 

WRITE(6,102)SYSIDIIS) 

AMSJ57 

.02  F0RMATI29H  ERROR,  UNDEFINED  SYSTEM.  ID=,F10.2) 

AMS058 

STOP 

AMS059 

7 DO  12  IR= 1 , NROS 

AMSQ60 

IFIKRIGI  IR ) . EQ.O 1 GOTO  12 

AMS061 

DO  1A  M=2,10 

AMS062 

IF ( RNDIDI IR) . EO.SYSRDILSYS, M) IGGTD  8 

AMS063 

1A  CONTINUE 

AMS06A 

GOTO  12 

AMS065 

8 IF  IAI9.NA) .GT.R2MXI IR) IGOTO  12 

AMSJ66 

IFITNI6, IT). EG. 3. C) GOT 0 9 

A- 14 

AMS067 

A- 14 


15 

9 


16 


20 


22 

23 


25 
12 

26 

24 

10 

999 

C * * 

C * * 


LK1=NR0(NP) 

DO  15  L= I » LK  1 

IF (RNOIDI IR ) . EQ.ORVPI  NP, L ) )GOTC  20 
CONTINUE 

IFITNI5,  m.EQ.J.DGOTO  12 
LK2=NRW(  NP ) 

DO  16  L=1,LK2 

IF (KNDIDI IR) .EQ.WRVPINP, L I) GOTO  20 

CO  NT INUE 

GOT.)  12 

CP  ER=0 .0 

CPET=0.u 

CALL  INTERPI  IP  ?NA  ) 

A( 10,NA)=CPER 
A ( 11  * NA) =CPET 
XVN=O.Q 

AT  LVL=TN( 17, IT) 

RT=TN(7, IT  ) 

PERW=TN( 5, IT  ) 

PERO=TN( o, IT  ) 

RP V=TPFU ( IS ) * A( 5, NA ) 

CALL  EFF6CTINA, IR, IT) 

IF(CRTFRA,EQ.2.'1)GCTC  22 
CT  = A( 13 , NA ) *CST ( IR) 

CT 1V=A(5,NA)*TPFU( IS ) *CST I IR) 

GOT't  23 

CT* A ( 1 i,  NA) *WGT ( IR) 

CT1V=AC5,NA) *TPFU( IS)*WGT( IR) 

IFICT.GE.CTMINIGOTO  12 

CT  M I N=CT 

A(24,N4)=IR 

A( 25 , N A ) =CT 

A(2o,NA)=CTlV 

DO  25  1=1,12 

TEMPAI I ) =A( 1*11, NA) 

CONTINUE 

IF  (CTMIN.GE.CTI  )GOm  24 
00  20  1=  1,12 
A(  I*ll,NA)=TEMPA(  I) 

GOTO  10 
NA  = NA  - 1 
CONTINUE 
RETURN 
END 

********************************* 

SUBROUTINE  DIVISNC IT) 

♦ ♦*♦♦♦♦♦♦♦♦***♦**♦*♦♦♦*♦♦♦***♦♦** 

COMKONdJSE  MAIN) 

SAVE1=TN(28, IT) 

SAVE2=TN( 29, IT) 

SAVE3=TN( 30,  IT) 

M0RG=2 

CALL  AMASS (IT) 

NE A2=NA 

NBA2=  MIN0(NA,NEA1+1 ) 

N8*NBA2$NE=NEA2  $ST=l .*P0=1 . tFH=l.$TK  = l.$APC=l.iSURVP  = l.$SURV*l.$ 
CR IT P*0. $ CR  IT=  0. 

TN28T*TN( 28, IT)*TN(25, IT) 

IF(NP.LT.6.0R.NP.GT.11)G0T0  19 
TO  E=TN( 26, IT )*4.0 
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AMS086 
AMS087 
AMS088 
AMS089 
AMS090 
AMS091 
AMS092 
AMS093 
AMS094 
AMS095 
AMS096 
AHS097 
AMS098 
AMS099 
AMSIOO 
AMS101 
AMS102 
AMS103 
AMS104 
AMS105 
AMS106 
AMS107 
AMS108 
AMS109 
AMS110 
AMSill 
DIV001 
DIV002 
DIV0D3 
DIV004 
DIV005 
DIV006 
DIV007 
DIV008 
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DIV014 
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A-  IS 


IF  (NP.EU.6.0R.NP.EQ.7)T0E*TN(  27,  ID*  15.0 
TN28T*( AHAX 1(0.0, INI  25, I T)-TGE ) )*TN( 28, IT) 

19  TN29T*TN(29,  IT)«-TN(26,  IT) 

TN30T=TN( 30, IT ) *TN( 27, I T ) 

00  310  I Q*l, NFU 
310  QUV(  IQ)*0.0 

SQN=0.  * SHORT*  0. 

CN*1000000.0  $ 0NCRT*0.0 

JF  = 0 

IF (NBA2.LE.NEA1 ) GOTO  35 
CALL  ONEVOLI  IT) 

CN  * AC13.NB) 

NA1  * NB 
JF  = NA1 
CALL  MULVOLCIT) 

IF (SURV.GT.TN( 17, IT) )G0T0  32 
IF (SQN.LT.QN)  GOTO  33 
IFONCRT.LT. SMCRT  ) GOTO  33 
GOTO  34 

32  IF  (SQN.LT.QN)  GOTO  35 

34  CALL  SHMUVLC IT, JF) 

GOTO  999 

33  ST=1 .0  % P0=1.0  % FH=l.O  % TK*1.0  * APC=1.0 
CALL  S)ONVL(IT) 

GOTO  999 

35  IF (EXCES1.EQ.1.  .ANO.  EXCES2.EQ. 1. ) GOTO  3 
IF(DSFLAG.EQ.l.O)  GOTO  1 

MORG* 1 

CALL  AMASS(IT) 

NE AI*NA 

NBA1=HIN0(NA,NEA2*1) 

IF(NBA1.LE.NEA2)G0T0  3 
GOTO  2 

1 IF(NEAl.EQ.O)  GGTO  3 

2 N8=NBA1 
NE*NEA1 

CALL  CNEVOLI IT) 

IFIQN.EQ. 1000000.0. OR. NBA2.EQ.C)  GOTO  23 
IF (DSFLAG.EQ.1.0. AND.NBA2.E0.NEA1 ) GOTO  23 

GOT''  8 

23  QN  * A( 1 3, NB ) 

8 NA1=NB 
JF  * NA1 
CALL  MULVOL (IT) 

IF ( SURV. GT ,TN(17,IT))  GOTO  4 
IF (SQN.LT.QN)  GOTO  5 
IF(ONCRT.LT.SMCRT)  GOTO  5 
GOTO  6 

4 IF (SQN.LT.QN)  GOTO  3 
6 I R=  A ( 24, JF ) 

NP*  TNI 19, IT ) ♦ l.G 
IF (TNI24, IT) .LT.T I GOTO  15 

IF  (TNI  4,  IT  ) • EQ.TN  ( 19,  I T ) . AND.  TN  ( 5,  I T ) .EQ.  TN  ( 20 , 1 T ) . AND.  TN  ( 6 , 1 T ) 
1.EQ.TNI21, IT ).AND.TN(7, IT) .EQ.TNI22, I T) ) GOTO  15 
CALL  INT  cRP( IR, JF ) 

RT*TN(22, IT) 

PERW=TN( 20, IT) 

PER0=TN(21, IT) 

AT LVL=0. 0 
XVN=A( 13, JF) 
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IK-AC 1,JF ) 

RPV=TPFU  ( IK ) *A(  «>,  JF) 

CALL  EFFECT ( JF, IR.IT) 

15  TN28=TN(28, IT) 

TN29=TN( 29, IT ) 

TN30*TN( 30, IT) 

IF(TN(24,IT).GE.T>  GOTO  13 
A ( 19  * JF  ) = 0. 

A ( 20 » JF ) = 0. 

A ( 21 , JF ) = 0. 

A ( 22 , JF ) = 1. 

A( 23, JF)=  1. 

13  A$UM=A(19»JF )+A(20,JF)+A ( 21, JF) 

TO  EP=TN( 25 , I T ) 

IFINP.LT .6. OR.NP.GT.il )GOTO  18 
T0E=TN(26, IT )*4.0 

IF (NP.EQ.6.0R.NP.EQ.7)T0E=TN( 27, IT)* 15.0 
TO  EP= AMAX 1(0.0, TNI  25, IT) -TOE) 

IF(ASUM.EQ.O.O) ASUH=1. 0 
18  TN(28,IT )*TN(28» I T ) *ASUM 

TN(29,IT)=TN(29, IT)*A(22,JF) 

TN (30, IT )*TN(30, IT)*A( 23, JF) 

IF (NBA2.E0.0)G0T0  9 

IF(nSFLAG.EQ.l.».AND.NBA2.E0.NEAl)  GOTO  9 

00  10  IF3*NBA2,NEA2 

IF ( A( 4, I F3 ) .LE .0.0 ) GOTO  10 

IS*A(1,IF3) 

IR  = A I 24,  IF3) 

IXZ=A(27» IF3) 

FT  (6,  IXZ  )*FT  (6,  IXZI+AI4,  IF3) 

A9 “SORT ( A ( 9 , IF3 ) ) 

I RNG= A9 

RNG I NT= I RNG 

RNGINT=KNGINT*.5 

I F ( A9  .GE.RNGINT) IRNGXIRNG*1 

I F ( A9  .GE.3G.0) I RNG -30 

ROCNT ( IR, IRNG ) = RDCNT ( IR, IRNGMAI4, IF  3) 

S(  IS  , 1 ) = S ( IS  , 1 ) + A( 4, IF 3 ) *WGT( IR ) 

S(  IS,2)=S(IS,2)+A(4,IF3)  *CST  ( IR  ) 

S ( IS,3)=S(IS,3)+( l.O-ASUH)*TN28*TOEP*QUV( I F3 )* A ( A, I F3 ) /A ( 13 , JF ) 

S( IS,4)=S( IS, 4>*( 1.0-A( 22, JF) )* TN29* TN ( 26 , IT)*QUV( I F3 ) *A(4, I F3 > /A < 
113, JF) 

S(  IS,5)=S(IS,5)*( 1 .0— A ( 23, JF ) )*TN3C*TN ( 27, I T ) *QUV ( I F3 ) ♦ A (4 , 1 F3 ) / A ( 
113 , JF) 

TUBFUI  IXZ  )=»TUBFU(  IXZ  )*TBM  ( I S ) *A ( 5,  IF3 ) 

I F ( S T YP(  IS). EQ. 2.0) GOTO  10 

B= I A (4, IF3)-A(5, IF3)*TPFU( IS) )/(A(5, IF3)*TPFU(IS)*A(3,IF3) ) 

IF ( TNI  10, IT ) .EQ.  0.)  B=B*.067 
B*  AMAXK  0.0,  B) 

TUBFU( IXZ)*TUBFU(  IXZ  )*B 
10  CONTINUE 

9 IF ( IFM.LT.NB)  GOTO  14 
00  11  IF3*NB» IFM 
IF(A(4,IF3).LE.0.0)G0T0  11 
I S*  A ( 1 , I F 3 ) 

IR=A(24, IF3) 

IXZ= A( 27, I F3 ) 

FT (6, IXZ >»FT(6, IXZ )+A( 4, IF3 ) 

A9  = SQRT ( A ( 9 , IF3 ) ) 

I RNG=  A9  4 
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RNGINT*IRNG 

RNGINT=RNGINT+.S 

l F I A9  .GE.RNGINT) IRNG*IRNG*l 

l F I A9  .GE.30.J) IRNG=30 

RDCNTIIR,IRNG)=RDCNT( IR, IRNG)+AI4, XF3  > 

SI  IS,  l)  = S(  IS,  1UAI4, IF  3 ) *WGT( IR ) 

S(  IS,2)=S( IS,2)*A(4,IF3)*CST( IR) 

SI  IS,3)-S(IS,3)+( 1.0-A$UM)*TN2B*T0EP*QUV( I F3 )*A I A, IF3 ) /A ( 13 , JF) 

S(  IS , 4 ) =$(  IS » 4 ) ♦( 1.9-AI 22, JF) )*TN29*TN(26»IT)*QUV(IF3)*AI4»IF3)/A( 
113, JF) 

SI IS»5)*S( IS  *5 )♦( l.O-AI 23, JF ) )* TN30*TN ( 27, I T )*QUV ( I F3 ) *A ( A , I F3 ) /A ( 
113, JF) 

TUBFUI 1X2 )=TUBFU(  1X2 ) ♦IBM ( I S ) *A ( 5, IF  3 ) 

IF (STYPI IS).EQ.2.0)GOTO  11 

B* ( A ( 4, IF3)-A( 5, I F3 ) *TPFU( IS) )/ ( AI 5, I F3 )* TPFU ( I S ) *A I 3 , 1 F 3 ) I 
IF (TNI  10, IT  ) .EQ.  0.)  B=B+.C67 
B- AMAXK  i.O,  B ) 

TUBFUI IXZ ) = TUBFUI  IXZ  UB 
11  CONTINUE 
14  I F3=  I FM»  l 
IS=A(1,IF3) 

IRS AI 24, IF3 ) 

IXZ=A( 27 , I F3  ) 

FT (6, IXZ )*FT (6, IXZ ) ♦ AI A,  IF3)*FM 
A9=SQRT( A( 9,  IF3) ) 

IRNG* A9 


RNGINT= I RNG 
RNGINT=RNGINT+.5 

IFIA9  .GE.RNGINT) IRNGMRNG+l 

IFIA9  .GE.30.0) IRNG=30 

ROCNT I IR , I RNG ) = 3DCNT I IR, IRNG > +A 1 4, IF3 ) *FM 

SI  IS , 1 ) — S I IS, 1 ) +AI 4, IF3)*WGTI IR)*FM 

SI IS,2)-S(IS»2)*A(4»IF3)*CST( IR)*FM 

S(IS,3)=S(IS,3)M 1.0-ASUM)*TN28*T0EP*QUV( I F3 ) * A I 4 , 1 F3 ) *FM/A ( 13  , JF ) 
SI  IS  »4)  = S I IS ,4 ) ♦( l.O-AI 2 2, JF) )♦ TN29*TN I 26 , I T ) *QUVI I F3 ) * A 1 4 , I F3 ) *FM 
1/A  1 1 3, JF I 

SI IS,5)=S(IS.5)+( l.O-AI 23, JF) l*TN30*TN l 27, I T )*QUVt IF3 ) * A 1 4, IF3 ) *FM 
1/ A 1 13 , JF ) 

TUBFUI  IXZ  )=TUBFU(  IXZHTBHI  I S ) *A ( 5,  IF3  ) «>FM 
IF (STYPI 1S).EQ.2.0)GOTO  17 

B» I AJ4,IF3)*FM-A(5, IF3)*TPFU(  IS ) )/( AI 5, IF3 M-TPFUI I S) * A I 3 , IF3 ) ) 

IF (TNI  10, IT ) .EQ.  0.)  B=B+.067 
B*AMAXl(3.0,B) 

TUBFUI IXZ)*TUBFU( IXZ )+B 

17  GOTO! 38,38,38,38, 38, 39,39,40, 40,40,40,38) ,NP 
38  SHW=SMW  ♦ I SAVE  1 - TNI  28, IT))  * 2.C  * TN(14,IT) 

IF (TNI  28,  IT ).LE. TNI  18,  IT))GuTO  7 
GOTO  4i 


39  SMW=SMW  ♦ (SAVE3  - TNI  30,  ITU  * 2.0  * TNI14,IT) 
IF (TNI30, IT) .LE.TNI18, IT ) IGOTO  7 
GOTO  41 


40  SMW=SHW  ♦ (SAVE2  - TN(29,IT))  * 2.0  ♦ TN(14,IT) 
IF (TNI29,IT) .LE.TNI18, IT) )GGTO  7 

41  LOSS  = LOSS  ♦ 1 
TLOST 1 1, LOSS  )»TN( 1, IT) 

TL0ST(2,L0SS)=TN( 3, IT) 

TLOSTI3,LOSS)*TNI28, IT) 

TLOST 1 4, LOSS )=TN I 29, IT) 

TLOST (5, LOSS )*TN( 30, IT) 


TR=1.0 
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GOTO  909 

7 MF  EAT  = MI-EAT  ♦ 1 

TDFTIMFEAT)  *TN(  1, IT) 

NFMD=NFMO  ♦ 1 
TR=1 .0 
GOTO  999 

5 ST=1 .0  % P0*1.0  * FH*1.0  % TK  = 1.J  * APOl.O 
RT=TN( 22  * IT ) 

NP  = TNI  19, IT ) ♦ 1.0 
PERW=TN( 20, IT) 

PERO=TN( 21 , I T ) 

IFINBA2.EQ.0 )GOTO  26 

IF  I OSFLAG. EQ. 1.0. AN0.NBA2.EQ.NEA1 ) GOTO  26 

DO  12  IF4=NBA2,NEA2 

IS*A(1»IF4) 

TEMP=A(5» I FA  ) *TPFU( IS) 

IF  (AI4,  IF4)  .LT.TEHPJGOTO  12 
IR*  A 1 24, IF4) 

IFITNI24,  ITJ.LT.T)  GOTO  16 

IF (TNI4,  IT). EQ. TNI  19,  IT)  .AND.  TNI  5,  I T ) . EO.  TN I 20,  I T ) . AND.  TN  1 6 , I T ) 
I.EG.TNI21, IT ) . AND. TNI  7, IT). 60. INI  22, IT) ) GOTO  16 
CALL  INTERPI IR, IF4) 

AT  LVL=C. 0 
XV  N=T  EMP 
RPV=T  EMP 

CALL  EFFECT! IF4, IR, IT) 

16  ST *ST*A( 14, IF4) 

PO  = PC'*AI  15,  IF4) 

FH=FH*A( 16, IF4) 

TK=TK*A I 17, IF4) 

APC=APC*A<18, IF4) 

IFITNI24, IT) .GE.T)  GOTO  20 
A I 19, 1 F4 ) = 0. 

At  2G , IF4 ) = 0. 

A I 21 , IF4 )=  0. 

A! 22* IF4 ) = 1. 

AI 23, IF4 )=  1. 

20  ASUM=A( 19, IF4)+A( 2C, IF4)+A( 21, IF4) 

IF  I ASUM.EO.O.O) ASUM=1.0 
A9*SQRT I A19, I F4 ) » 

I RNG=  A9 
RNGINT= IKNG 
RNGINT=RNGINT*.5 

IFIA9  .GE.RNGINT) IRNG=IRNG»1 

IFIA9  .GE.30.0) IRNG=30 

ROCNTt  IR,  IRNG)  = ROCNT I IR,  IRNG)  +TEMP 
l X Z = A I 27  » IF4  ) 

FT  16,  IXZ  ) = FT  16,  IXZ  )+TEMP 
SI  IS, l)  = St IS, 1 ) + TEMP*WGT I IR) 

SI  IS,2)  = S< IS,2)*TEMP*CST( IR) 

SI  IS,3)=S( IS , 3 ) ♦( 1.0— ASUM)*TN28T 
SI IS,4)=S( IS,4)+t 1.0-AI22, IF4) )*TN29T 
SI  IS ,5 )*S I I S , 5 1 C 1.0-AI2  3,  IF4))*TN30T 
TN28T*TN28T-TN28T  *( 1.0-ASUM ) 

TN29T=TN29T-TN29T*t l .0-A I 22, I F4 ) ) 
TN30T»TNj0T-TN30T*I1.0-A(23,IF4) ) 

TUBFUI IXZ)=TUBFU( IXZ)*TBM( IS)*A!5,IF4) 

IF (TNI  10, IT ) .EO.O..ANO.STYPI I S ) -EO . I . ) TUBFUI IXZ) =TUBFU( IXZ) ♦.067 
12  CONTINUE 
26  CALL  SHONVLI IT) 
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GOTO  999 

3 0VFLAG*1.0 
CALL  C9RPI IT ) 

999  RETURN 
END 

C*********************************** 

SUBROUTINE  SHMUVL ( IT, JF ) 

C*********************************** 

COMMONIUSE  MAIN) 

IR=AI 24, JF) 

NP  = TNI  19,  IT)  ♦ l.C 
IF ITNI24,  IT)  .LT.T  ) GOTO  9 

IFITNI4, IT ) .EQ.TNt 19, IT  ) .AND. TNI  5, IT) .EO. TNI  20, IT) .AND. TNI  6, IT) 
1.EQ.TNI21,IT).AND.TNI7,IT).EQ.TNI22,IT))  GOTO  9 
CALL  INTERPI  IR, JF) 

RT*TNI 22,  IT  ) 

PERW*TNI 20, IT) 

PERO*TN( 21, IT) 

AT  LVL“0. 0 
I S = A ( 1, JF) 

RPV=A(5,JF)*TPFUI IS) 

XV  N=  A 1 13  » JF ) 

CALL  EFFECT! JF, IR, IT  ) 

4 TN23*TN( 28 , I T ) 

TN29-TNI 29, IT) 

TN30-TNI jO , IT) 

IFITNI24,IT).GE.T)  GOTO  3 
A ( 19 , JF ) = 0. 

A( 29, JF)=  0. 

A( 21, JF)=  0. 

A I 22 , JF I = 1. 

A I 23 , JF ) = 1. 

3 AS UM* A! 19,JF)+A(20»JF)*A( 21, JF) 

TO EP=TNI 25 , 1 T ) 

IF (NP.LT .6.0R.NP .GT. 11 )GGTO  6 
TO  Es  TNI  26, IT  )*4.0 

IF(NP.EQ.6.0R.NP.EQ.7)T0E3TN! 27, IT)*15.0 
TOEP* AMAXllO.O,TNI 25, IT)-TCE) 

IF ( ASUM. EQ .0 .0 ) ASUM=1.0 
6 TN(28,IT )=TN(28,IT)^ASUM 
TNI29»IT)=TN(29» IT )*AI 22, JF) 

TNI30, IT )*TNI 30, IT  I ♦ A I 23, JF ) 

IF  I IFM.LT .NB )GGTG  2 
DO  10  IF3=NB, IFM 
IFIAI4, IF3).LE.O.O)GOTO  10 
IX  Z= A ( 27 » IF3 ) 

FT (6,IXZ)*FTI6,IXZ)+A<4, IF3) 

IR=A( 24, IF3) 

A9*SQRT I AI9,  IF3)  ) 

I RNG= A9 
RNGINT=I RNG 
RNGINT=RNGINT+.5 

IFIA9  .CE.RNGINT) IRNG=IRNG*1 

IFIA9  .GE.30.G) IRNG=30 

RDCNTI IR, IRNG )=RDCNT I IR,  IRNG) +AI  4, IF  3) 

I S SA I 1, I FT) 

51 15.1) =SIIS,1)+AI4, IF3) ♦WGT I IR) 

51 15.2) =SI IS,2)+A(4, IF3 ) *CST( IR ) 

S!IS,3)  = S(IS,3)  + I l.9-ASUM)*TN28*T0EP*QUVI IF3 ) *A 14 , IF3 ) / A 1 13 , JF ) 

SI  IS, 4)- SI IS,4)M 1.0-AI22,JF) )*TN29*TNI  25, I T )*QUV I IF3 ) * AI 4 , IF3 ) / A I 
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113, JF) 

SI  IS,5)-SIIS,5Kt l.O-AI 23, JF ) )*TN30*TNt 27, ITKQUVI I F3 >*A( A , IF3 ) /A I 
113, JF) 

TUBFUI IXZ  KTUBFUt  IXZ KTBMI 1 SKA  I 5, IF  3) 

IFISTYPt IS).EQ.2.0)G0T0  10 

B*  I AIA,IF3)-At 5,  IF3)*TPFU(  IS ) )/ ( A I 5,  IF3)  * TPFUII  S )*A  ( 3 , 1 F3  )) 

I F ITNI 13 , IT ) .EQ.  0.)  B=B*.067 
B*  AMAX1 1 0 *0 , B ) 

TUBFUI  IXZKTUBFUt  IXZ  KB 

10  CONTINUE 
2 IF 3= I FH*  1 

I S *A  ( 1 , 1 F 3 ) 

I R=  A I 24,  IF3) 

IX  Z = A I 27  , IF3  ) 

FT  16,  IXZ ) 3 FT  (6,  IXZ  K AI  A,  IF3)*FH 
A9*SQRT I A(9, IF3) ) 

IRNG* A9 
RNGINT=l RNG 
RNGINT  = RNGINT  + .«5 

IFIA9  .GE.RNGINT)IRNG=IRNG*1 

IFIA9  .GE.3j.3I IRNG=30 

ROCNTI  IR,  IRNG  KRDCNT I IR,  IRNGKAI  A,  IF3KFM 

SI  IS  , 1 > = S C IS,  IK  At  A,  IF3 ) *WGT  I IR  KFM 

St  IS.2KSI  IS,2KAIA,  IF3KCSTI IR  KFM 

SI  IS,3KS(IS,3KI l .O-ASUM )*TN28*T0EP*QUV I IF3  ) * A I A , I F3  KFM/A 1 13  , JF  ) 
SI  IS  »A)=SI  IS,  AKI  l.O-AI  22,  JF)  )*  TN29*TN  I 26,  ITKQUV I IF3  K A I A ,IF3  KFM 
1/ A 1 1 3 , JF  ) 

SI  IS,5)  = SIIS,5)  + I 1.0-AI2  3.JF) )*TN30*TNI  27,  ITKQUVI  IF3KAI  A,  IF3KFM 
1/ A 1 13 , JF I 

TUBFUI  IXZ  KTUBFU I IXZ  KTBMI  I S ) *AI  5,  IF3)*FM 
IF  ISTYPI IS) .EQ.2.0IG0T0  5 

8=  I AI  A,  IF3KFM-AI  5,  IF3KTPFUI  IS  ) ) / 1 A I 5,  I F3  K TPFU 1 1 S)  * A 1 3 , I F3 ) ) 

I F ITNI 10, IT ) .EQ.  0.)  B=B».G67 
B*  AHAX1 1 0 .0, B I 
TUBFUI  IXZKTUBFUt  IXZ  KB 
5 GO  TO  I 7, 7, 7, 7, 7, fl, B,9,9,9,9, 7) ,NP 

7 SMVKSMW  ♦ ISAVEl  - TNI28.IT))  * 2.0  * TNI1A.IT) 

IF ( T N 1 28 , IT) .LE.TNI18, IT) )GOT  0 1 

GOT''  11 

8 SMVKSMW  + ISAVE3  - TNI  30, IT))  * 2.0  * TNI1A.IT) 

IFITNI 30, IT) .LE.TNI 18, IT ) )GCTO  1 

GOTO  11 

9 SMW=SMW  ♦ ISAVE2  - TNI29,IT))  * 2.0  * TNI1A.IT) 

IF (TNI29, IT) .LE.TNI 18, IT ) ) GOT  0 1 

11  LOSS  3 LOSS  ♦ 1 
TLOSTI  l.LOSSKTNt  1,  IT) 

TL0STI2,L0SSKTNI3,IT) 

TLOSTI 3, LOSS  KTNI  28,  IT) 

TLOST  (A,  LOSS  KTN!  29,  IT) 

TL0STI5,L0SSKTNI30, IT) 

TK*1 .0 

GOTO  999 

1 MF  EAT3  MFEAT  ♦ l 

TOFT  I MFE  AT ) =TNI 1, IT) 

NFMD=NFMG  ♦ 1 
TR*1.C 
999  RETURN 
END 

0*********************************** 

SUBROUTINE  SHONVLI IT) 
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c 


*****♦**♦*****#*•***#*******♦****♦* 

COMMON  (USE  MAIN) 

NP  = TN( 19,  IT  ) ♦ 1.0 

RT  *TN( 22, IT) 

PERW*TN( 20 , 1 T ) 

PERO=TN( 21, IT) 

IF ( IFONE.LT. NB)GOTO  3 

00  10  IF2=NB» IF^NE 
IS  = A ( 1 , I F2  ) 

T EMP*  A( 5 , I F2  ) *TPFU( IS) 

IF ( A ( 4 , I F2 ) .LT. TEMP) GO TO  10 
I R=  A (24, I F2  » 

1 F ( TN  ( 24,  IT).LT.T)  GOTC 

IF ( TN ( 4, [T).EQ.TN(19,m.AND.TN(5,IT).EO.TN(20,IT).AND.TN(6,IT> 
l.EC.TN(2l, IT  ).AND.TN(7, IT  ).E0.TN(22, I T) ) GOTO  4 
CALL  INT ERP ( IR , I F2 ) 

AT  LVL=0. » 

XVN=TEMP 
RPV=T  EMP 

CALL  EFFECT( IF2, IR, IT) 

4 ST *ST *A( 14, IF2) 

PO  = P0  * A( 15, IF2) 

FH=FH*A( 16, IF2) 

TK=TK*A( 17, IF2) 

AP  C=  APC* A ( 18, IF2) 

IF (TN(24, IT) .GE.T)  GOT 0 2 
A ( 19  , I F2 ) = 0. 

A( 20, IF2  )=  0. 

A( 21, IF2)=  0. 

A ( 22  , I F2 ) = l. 

A(  23, IF2 )=  i. 

2 AS UM=  A( 19, I F 2 ) +A( 20, IF2) ♦A( 21, IF2) 

IF (ASUM.EQ.O.O) ASUM=1.0 
A9=SQRT( A( 9, IF2) ) 

IRNG= A9 
RNG!NT= I RNG 
RNGINT=RNGINT*.5 

IF(A9  . GE.RNG1NT ) IRNG* IRNG* 1 

IF(A9  . GE.30.0) I RNG =30 

RDCNT ( IR, IRNG )=RDCNT ( IR, IRNG) + TEMP 
l X Z=  A ( 27 , IF2  ) 

FT  (6,  IXZ)=FT(6» IXZ) *TEMP 
S ( IS , 1 ) = S t IS  » 1 ) *T  EMP*WGT ( IR ) 

SI  IS,2)  = S( I S , 2 ) ♦TEMP*CST ( IR ) 

S(IS,3)=S(IS,3)*( 1 .O-ASUM ) *TN28T 
S(  IS»4)  = S( IS , 4 ) + ( 1.0-A( 22, IF2 ) ) *TN29T 
SI  IS , 5 )=S ( IS  » 5 ) ♦( l.O-AI 2 3, IF2)  )*TN30T 
TN28T=TN28T-TN28T*( 1. O-ASUM) 

TN29T=TN29T-TN29T  *( 1.0-A( 22, IF2) ) 

TN30T  = TN30T-TN30T  *1 1.0- A( 23, IF2) ) 

TUBFUI IXZ )*TUBFU( I XZ ) ♦ TBM ( I S ) *A ( 5, I F2 ) 

IF (TN( 10, IT) .EQ.G..AND.STYP( I S ) .EQ. 1 . ) TUBFU( I XZ ) =TUBFU( I XZ) +.067 
10  CONTINUE 

3 IF2* IFGNE*1 
IS*A ( 1, I F2 ) 

TEHP=A(5, IF2 )*TPFU( IS)*F 
IR* A( 24, IF2) 

CALL  INTERP( IR, IF2) 

AT  LVL*0.  ) 

XVN=TEMP 
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RP  V3  A|  5, IF2)*TPFUt IS) 

CALL  EFFECT!  IF2,  IR,  ID 
ST3ST*A( 14, IF2) 

PO*PC'*A(  15,  IF2) 

FH*FH*A( 16, IF2) 

TK«TK*A( 17, IF2) 

APC3APC*A(l8,  IF2 ) 

IFITNI24, ITI.GE.T)  GOTO  5 
A! 19 , I F2 ) 3 0. 

A ( 20 , IF2  ) = 0. 

A! 21, IF2  l»  0. 

A! 22, IF2  ) = 1. 

A| 23,  IF2  )*  1. 

TK*0. 

APC«0. 

5 ASUM*A!19, IF2)*A( 20, IF2)+A<21, IF2) 

IF! ASUM.EQ.0.0)ASUM=1.0 

IXZ*A (27 , IF2  ) 

FT  <6,IXZ )*FT(6, IXZ  )+TEMP 
A9*SQRT ( A ( 9, IF2) ) 

IRNG-A9 

RNGI NT= I RNG 

RNGINT=RNGINT*.5 

I F ( A9  .GE.RNGINTIIRNG=IRNG*1 

IF ( A9  .GE.30.0) IRNG=30 

RDCNT ( IR, IRNG)=RDCNT( IR, IRNG) ♦TEMP 
S( IS,ll3S(IS,l)+TEMP*WGT( IR) 

S( IS,2)*S( IS,2)*TEMP*CST ( IR) 

S(  IS,3)»S( IS,3)*( 1 ,0— ASUM )*  IN  28  I 
S(  IS, 4)- SI IS,4)4( l.O-A! 22,  IF2))*TN29T 
S( IS,5)=3( IS,5)*< l.O-A! 23, IF2))*TN30T 
TN28T3TN*8T-TN28T*( 1.0-ASUM) 

TN29T*TN29T-TN29T*( 1 .0-A ! 22, 1 F2  ) ) 

TN30T»TN30T-TN30T*( l.O-A! 23, IF2  ) ) 

TUBFU! IXZ )3TUBFU( IXZ )*TBM( IS ) *A( 5, IF2 )*F 

IF (TNI  10, IT ) . EQ .0. • ANO.STYP ( I S ) .EO . 1 . ) TU8FU ( I XZ ) * TUBFU! I XZ) ♦. 067 
TO  EP*TN( 25 , 1 T ) 

IF (NP.LT. 6. OR.NP.GT.il )G0T06 
TOE*TN( 26, IT )*4.0 

IF (NP.EQ.6.0R.NP.EQ.7)T0E=TN( 27, I T )*15.0 
TO  EP=  AMAX1 ( 0.0,TN(25, IT) -TOE) 

6 IF(TOEP.EQ.O.O)GOTO  7 
TN(28,IT)*TN28T/T0EP 

7 TKP03PDSTINP,5)*TK 
IF(TKP0.EQ.0.0)TKP0=1.C 
APCP0*P0ST!NP,6 ) * APC 

IF! APCP9.EQ.O.O)APCPO=1.G 

TN (29, IT ) 3TN  ( 29, IT)*TKPO 

TN(30»IT)3TN(30»IT)*APCP0 

GO  TO ( 8, 8, 8, 8, 8, 9, 9, 11, 11, 11, 11,8), NP 

8 SMW=SHW  ♦ (SAVE!  - TN(28,IT))  * 2.0  * TN(14,IT) 

IF  (TNI28.IT)  .LE.TM10,  IT  ) IGOTO  1 

GOTO  12 

9 SMH*SMH  ( SAVE3  - TN130.IT))  * 2.0  * TM(14,IT) 

IF (TNI  30, IT) .LE.TN! 18, IT) )GuT0  1 

GOT.'  12 

11  SMW=SHW  ♦ (SAVE2  - TNI29,IT))  * 2.0  * TNI14.IT) 

IF (TNI  29, IT) .LE.TN! 18, IT) )GOT  0 1 

12  LOSS  3 LOSS  ♦ 1 
TLOST! 1, LOSS  )*TN( 1, IT) 
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TLOST (2,  LOSS )*TNt 3, IT  I 
TL0ST(3,L0SS)*TNI26, IT  > 
TL0STtA,L0SS)*TN<29, IT) 

TLOST (i*  LOSS ) = TNt 30, IT  I 
TR=1 .0 
GOTO  999 

1 MFEAT=  MFEAT  ♦ l 

TDFT ( MFE AT ) =TN( 1, IT» 

NFMD=NFMO  ♦ 1 
TR=1 .0 
999  RETURN 
ENO 

C******************* 

SUBROUTINE  ONEVOLtlT) 
C******************* 
0 1 FENS  ION  A1 1 2, 5 j ) , B( 27 ) 
COMMONIUSE  MAIN) 

NE A=  NE  - NB  ♦ 1 

I AC=0 

K=0 

DO  12  J=1 »NEA 
CRlTNl-l'.'OOOOO.T 
00  13  M=N8,N£ 

IF(A(25»M)  .LT.  CRITMI)  GOTO  2 
GOTO  13 

2 CR ITM 1 = A t 25,M) 

MI  *M 

13  CONTINUE 
IAC= IAC*1 
Aid,  IAC)*MI 
A1 t2, IAC)=At25,MI ) 

A( 25, MI) =1000000,0 
12  CONTINUE 

DO  14  M=MB,NE 
K=K*1 

MI«A1U,K) 

DO  15  L= i ,27 
BID  =A(L,M) 

At L, M )*A ( L , M I ) 

A(L,MI)=B(L) 

15  CONTINUE 

At 25,M)=Al(2,K) 

DO  16  L=K ,NE A 
IM=Alt l,L) 

IF ( IM  ,EQ.  M ) GOTO  3 

16  CONTINUE 

3 A1  1 1 « L)  = M I 
1 A CONTINUE 

C0NSTR=15.0 

IF  tTNtlA, IT ),GE*10,0)CGNSTR  = 3C*C 
00  10  JF=NB,NE 
I R S= A 1 24  » JF ) 

IS  = A t 1,JF) 

R0UNDS=At5, JF)*TPFU< IS) 
IFtA(4,JF)*LT,R0UN0S) GOTO  lu 
CR  I TP=CR 1 T 
CRIT=CRIT+At26,JF) 

ST=ST*At 14, JF) 

PO  *P0  *A< 15, JF) 

FH=FH*At 16, JF) 
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TK=TK*AC  17, JF) 

APC=  APC* A( 18, JF) 

TEMP1=R0UN0S*WGT ( IRS) 

SU  RVP*SURV 

SURV=P0ST(NP»7)*ST  ♦ POSTINP, 8)*P0  ♦ POST ( NP ,9) *FH  ♦ 

1 POS T ( NP , 10 ) *TK  «•  POST(NP»ll) ♦APC 

IFIRTPI I KS ) . EQ. ?. C . AND.TN ( It, I T ) .NE.C. ) SURV=P0ST (NP ,2 ) * ST+POST 
1(NP,3)*PG*P0ST(NP,4)*FH*P0ST(NP,5)*TK*PCST(NP,6)*APC 
IF (SURV.LE.TNI 17, IT) )GOTO  11 
WAIT=WAIT*TEHP1 
IF(WAIT.GT.C0NSTR)G0T0  1 
1C  CONTINUE 
GO  TJ  999 
11  I FONE= JF— 1 

F* ( SURVP-TN ( 17, IT ) ) / ( SURVP— SURV ) 

WAIT=WAIT*TEMP1*F 
IFIWAIT.CT.CONSTR )GOTO  1 
ONCRT  =CRITP*F*(CR I T-CR I TP ) 

GOTO  999 
1 SURV= 1 .0 
EXCESi=l .0 
999  RETURN 
ENO 

*********************************** 

SUBROUTINE  MUlVOL(IT) 

*********************************** 

COMMJNIUSE  MAIN) 

CO  NSTR* 15 .0 

IF (TNI 14, IT),GE.10.0)C0NSTR=30.w 
DO  10  IF1*NA1 ,NE 
IRS- A( 24,  IF1 ) 

GUV< I Fi ) =QN/ A( 13, I FI  I 
SQNP=SQN 

SQN=SQN*AMAX1(A(4,  IF1),0.0)*QUV<  IFl) 

T EMP=  A( 4 , IFl) *CRT ( IRS) 

TEMP23 A( 4, IF1)*WGT( IRS) 

IF (SQN.GE.QN)GOTO  1 
WAIT2*WAIT2+TEMP2 
IF(WAIT2.GT.C0NSTR)G0T0  2 
SMCRT*SMCRT*TEMP 
10  CONTINUE 
GOTO  999 

1 FM*( ( QN-SQNP ) / ( SQN-SQNP ) ) 

IFM= IF1-1 

SMCRT=SMCRT+FM*TEMP 
WAIT2=WAIT2*TEMP2*FM 
IFIWAIT2.GT . CONST R) GOTO  2 
GOTO  999 

2 SQN=0.0 
EXCES2*1.0 

999  RETURN 
END 

*********************************** 

SUBROUTINE  CORPI IT) 

*********************************** 
COMMONIUSE  MAIN) 

$ AVE1=TN ( 28, IT) 

SAVE2*TN( 29, IT) 

SAVE3=TN( 30, IT) 

KE  Y=0 
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M0RG=3 

CALL  AMASS ( IT ) 

NE A3*NA 

NE A=MAXO (NEA2.NEA l I 
NB AJ^MIN^ ( NA, NEA  *1) 

NB=NBA3 
NE=NEA3 
0FLAG1=0.0 
OF  L AG2=0 .0 

QN=  1000000.0  % 9NCRT=*0.0 
JF  = 0 

W A IT=0.  * WAIT2=0.  % EXCES1=0.  % EXCES2  = 0. 

ST*1 . * PO*l.  * FH=1.  % TK  = 1.  * APC=l. 

SURVP* 1 . $ SURV=1.  * CRITP=0.  $ CRIT=0.  S SQN=0.  $ SPCRT=0. 
TN28T=TN(28, IT)*TN(25, IT) 

IF(NP.Lr.6.0R.NP.GT.ll)G0T0  30 
T0E=TN(26, IT)*A.0 

IF (NP.EQ.6.0R.NP.EQ.7)T0E=TN( 27, IT) *15.0 
TN28T=( AMAX 1(0.0, TNI  25, I T I-TOE ) ) *TN ( 28 , 1 T) 

38  TN29T=TN(29,IT)*TN(26,IT) 

TN3JT*TN( 30, IT )*TN( 27, IT ) 

DO  ?0  10- 1»NFU 
50  QUV( I Q)=0.0 

IF  (NBA3.LE.NEA2.0R.NBA3.LE.NEADG0T0  1 
CALL  ONEVOL ( IT) 

QN  = A ( 1 3 , NB ) 

NA1  = NB 
JF  = NA1 
CALL  MULVOL ( IT ) 

I F ( SURV  .GT.  TN(17,IT))  GOTO  A 
IF(SQN.LT.QN)GOTO  5 
IF (ONCRT.LT. SMCRT )GOTO  5 

6 CALL  SHMUVH  IT, JF) 

GOTO  999 

5 ST*1 .0  i P0*1.0  $ FH=1 .0  $ TK  = 1 .0  % APC  = 1.0 
CALL  SHO  NVL ( IT) 

GOTO  999 
1 0FLAG1=5 .0 
GOTO  30 

A IF (SQN.GE.ON IGOTO  6 

IF ( EXCES1.EQ.1.0. AN0.EXCES2.EQ. 1.0) GOTO  60 
3u  IF( DV FLAG. EQ. 1.01  GOTO  8 
M0RG®2 

CALL  AMASS (IT) 

NEA2  = NA 

NBA2=MIN3(NA,NEA3«-1) 

IF (NBA2.LE.NEA3IG0T0  31 
GOTO  35 

8 I F ( NE A2. EQ .0 ) GOTO  7 

IF (NEA1.EQ.NBA2.AND.NBA2.EQ.NEA2.AND.0SFLAG.EQ.1.0)  GOTO  7 
GOTO  35 

7 0FLAG2=5.0 
IF(NEAl.EQ.O)  GOTO  60 
GOTO  36 

35  NB=NBA2 
NE=NEA2 

CALL  ONEVOLI IT) 

IF(QN.EQ. 1000000. OJGOTO  A1 
IF  (0FLAG1.NE.5.0)G0T0  9 
A1  QN  = A( 1 3, NB ) 
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9 NA1=N8 
JF  * N 41 
CALL  HUL VOL ( IT) 

IF  I SURV  .GT.  TNI  17, IT)  ) GOTO  13 
IF  (SQN.Lf  *QN  IGOTC'  14 
IFIONCRT.LT. SMCRTIGOTO  14 
GOTO  l*> 

13  IF (SCN.LI.QN)GOTO  16 

15  TN28*TN( 28, IT) 

TN29=TN(29, IT) 

TN30*TN( 30, IT) 

CALL  SHMUVLI IT, JF) 

ASUM=A(19,JF)*A(20,JF)*A(21,JF) 

IF(ASUH.EQ.O.O) ASUH=1.0 
IFI0FLAG1.EQ.5.O)  GOTO  999 

00  53  IF  2 = N8A3»  N£ A3 
IF (4(4, lF2).LE.0.0)GuT9  53 
I R * 4 ( 24,  IF2I 
IXZ=A(27, IF2) 

FT  (6, 1XZ )*FT(6, IXZ ) ♦ A( 4,  IF2) 

A9*S0RT( 4(9, IF2) ) 

IRNG=A9 

RNG I NT* I RNG 

RNGINT=RNGINT*.5 

I F ( 49  .GE.RNGINT) IRNG=IRNG*1 

I F ( 49  .GE.30.0) IRNG=30 

RDCNT ( IR,  IRNG ) = RDCNT( IR,  IRNG ) 44 ( 4, IF  2 ) 

IS  =A ( 1, (F2) 

S(  IS,1)*S( IS,1)+A(4, I F2 ) *HGT ( IR) 

S(  IS,2)  = S( IS,2)»A(4, IF2)*CST(  IR ) 

S(IS,3)=S(IS,3)*l 1.0-ASUM)*TN28*T0EP*QUV( IF2)*A(4,IF2 )/A(13,  JF) 
S(IS,4)=S(IS,4)*( 1.0— A ( 22, JF ) )* TN29*TN ( 26 , I T ) *QUV ( I F2 ) * A ( 4 , I F2 ) /A ( 
113  ,JF  ) 

S!  IS,5I  = S( IS,5)*( 1.9-A( 23, JF) )♦ TN30*TN ( 27 , I T ) *QUV ( I F2 ) + A ( 4 , I F2 ) / A ( 
113, JF) 

TUBFlH  IXZ  )*TUBFU(  IXZ  )*TBH(  IS)*A(5,IF2) 

IF(STYP(  I S ) . EO. 2 . C ) GOTO  53 

B* (A(4,IF2)-A(5, IF2)*TPFU( IS) ) / ( A ( 5, I F2 >*TPFU< I S ) *A( 3 , I F2 ) ) 
IF(TN(10,IT)  .EQ.  0.)  B=B*.067 
8s  AHAXKO.O,  B) 

TUBFU( IXZ ) = TUBFU(  IXZ  )*B 
53  CONTINUE 
GOTO  999 

14  ST*1 . 0 % P0*1.0  % FH=1 .0  $ TK= 1.0  * APC=1.0 
RT*TN(22, IT) 

NP*  TN( 19, IT ) ♦ l.C 
PERW*TN( 20, IT) 

PERO*TN( 21, IT ) 

IFIOFLAG1.E0.5.0 )GOT  0 18 

Kl=  NBA3  $ K 2=  NEA3  * KEY=  1 

GOTO  59 

18  CALL  SHONVL ( IT ) 

GOTO  999 

16  IF (EXCES1.E0.1.3. AN0.EXCES2.EQ. 1.0)G  TT  6C 
IFIDV FLAG. EO .1.0)  GOTO  19 

GOTO  11 
31  OF  LAG2=5 .0 
11  HORG= 1 

CALL  AMA SS ( IT) 

NEA1=NA 
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NBAl=MIN0(NA,NEA2»l) 

IF (NBAI.LE.NEA2JG0T0  60 
GOTO  36 

19  IF { NBA! * EQ.O ) GOTO  60 

IF CNBA1.EQ.NEA2.AND.DSFLAG.NE.1.0)  GOTO  60 
36  NB-NBAl 
NE=*NEA1 

CALL  ONEVOL ( IT) 

IFIQN.EQ. 1000000. 0)G0T0  42 
IF (0FLAG1.NE.5.0.0R.0FLAG2.NE.5.0)G0T0  40 
42  ON  = A( I3«NB) 

40  NA1=NB 
JF  = NA1 
CALL  HULVOL (IT) 

I F ( SURV  .GT.  TNC17.IT))  GOTO  23 
I F (SQN.LT  .0)4  )GOTO  24 
IF (ONCRT.LT.SMCRT )G0T0  24 
GOTO  25 

23  IF (SQN.LT.QN )GOTO  60 

25  TN28=TN(28, IT) 

TN29=TN( 29. IT) 

TN30=TN( 30, IT) 

CALL  SHMUVLC IT.JF) 

ASUH=AC19,JF)*A(20,JF)+A(  21.JF) 

IF(ASUH.EQ.O.O) ASUH= 1. 0 
IFC0FLAG1.EQ.5.0)G0T0  26 

CO  56  IF4=NB A3, NE A3 
IFCAC4, IF4).LE.0.0)G0T0  56 
IR  = A( 24, IF4) 

I XZ=  A ( 27  » I F4 ) 

FT  (6,  IXZ  )*FT  (6,  IXZ  ) ♦ AC  4,  IF4) 

A9-SQRTC  AC9, IF4) ) 

IRNG= A9 

RNGINT=IRNG 

RNGINT=RNGINT*.5 

IFCA9  .GE.KNGINT) IRNG=IRNG*1 

IFCA9  .GE.30.0) IRNG=30 

RDCNTC IR,IRNG)=RDCNT( IR, IRNG) +AC4, IF4) 

IS=A(1,I F4 ) 

SC  IS,1)  = S( IS,1)*A<4, IF4 )*WGT ( IR ) 

SC  IS , 2 ) = SC IS,2)*A(4, IF4)*CSTC IR) 

SC IS  » 3 ) = S ( IS  , 3 ) + ( 1.0-ASUM )*TN284T0EP*QUV( I F4  )* A ( 4 , 1 F4 ) /A < 13 , JF ) 

SC IS ,4 )*S ( IS , 4 ) ♦( 1.0-AI22.JF) )*TN29*TN ( 26, I T) *QUV( IF4 ) *A( 4 , I F4 ) / A ( 
113,  JF) 

SC IS,5)=S(IS,5)+( l.O-AC 23, JF) )*TN30*TN ( 27, I T )*QUV( I F4 )*A (4, I F4 ) /A ( 
113, JF) 

TUBFUC IXZ ) =TUBFU( IXZ )*TBM( IS)*A<5, IF4) 

IF CSTYPC IS) .EQ.2.O)G0TO  56 

B= (A(4,IF4)-AC5, I F4 ) *TPFU( IS) ) / ( AC  5, IF4 ) * TPFU ( I S) *A ( 3 , 1 F4 ) ) 

IF (TNC 10, IT ) .EQ.  0.)  B=B+.067 
Ba  AHAX1C  0.0, B) 

TUBFUC  IXZ  ) = T U B FIJ ( IXZ  ) *8 
56  CONTINUE 

26  IFC0FLAG2.EQ.5.0)  GOTO  999 
CO  57  IF4=NBA2, NEA2 
IF  (A(4,  IF4)  .LF.O.OGOTO  57 
IR  = AC  24, IF4) 

IXZ- AC  27 , I F4 ) 

FT  <6, IXZ )=FTC6, IXZ)»A< 4, IF4) 

A9=SQRT( AC9, I F4 ) ) 
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IRNG* A9 

RNGINT=IRNG 

RNGINT=RNGINT*.5 

I F I A9  .GE.RNGINT) IRNG=IRNG*1 

IF I A9  .GE. 3J.0)IRNG*30 

ROCNT I IK, IRNG)*RDCNT( IR,  IRNGI +AI A, IF A ) 

IS* A( 1, I FA ) 

S(IS,1)*S(IS,1)*AIA,  IF  A ) *WGT  ( IR) 

S(  IS,2)=S( IS,2)*AI A,  IFA)*CSn  IR) 

S(  IS,3)=S(  IS, 3)4-1  1.0-ASUM)*TN28*T0EP*QUV(  I FA ) *A ( A, I FA ) /A  1 13 , JF ) 

S(  IS,A)*SI IS,A>+( 1.0-AI22, JF) >*TN29*TN ( 26 , I T ) *QUV( I FA ) *A ( A, I FA ) / A < 
113, JF) 

S(  IS , 5 )*S ( IS » 5 )♦( 1.0-A(2  3,JF) )*TN30*TN ( 27, IT) *QUV ( I FA ) * A ( A , I FA ) / A I 
113, JF) 

TUBFUI  IXZ)=TUBFU(  IXZ)»TBM(  IS)*A(5,  I FA  ) 

IFISTVPI  IS ) • EQ* 2 * 0 ) GOTO  57 

B*  U(A, I FA) -A (5, I FA) ♦TPFUI IS) ) / ( A< 5, I FA ) *TPFU( I S ) *A C 3 , I FA ) ) 

IF  (TNIU,  IT)  .EQ.  0.)  B=B*.G67 
B*  AMAX 1(  3.0, B ) 

TUBFUI IX  Z )*TUBFU( IXZ  )»B 
57  CONTINUE 
GOT .j  999 

2A  ST=1 .0  t P0=1.0  i FH*1.0  > TK=1.0  t APC*1.0 
RT*TN(22, IT) 

NP*  TNI19.IT)  ♦ l.U 
PERW=TN( 20, IT) 

PER0=TN(21, IT) 

I F ( J FL  AG1 . EQ.  5.  "> ) GOT 0 28 
K1 = NR A3  t K2=  NEA3 

GOTO  59 

28  IF()FLAG2.E0.5.0)G0T0  29 
Kl=  NBA2  * K2=  NEA2 
59  00  58  IF3*  K1,K2 
IS*A( 1, I F3 ) 

TEMP=A(5, IF3)*TPFU( IS) 

IF (A(A,IF3).LT.TEMP) GOTO  58 
IR  = A(2A,  IF3) 

IFITNI2A,  IT).LT.T)  GOTO  3A 

IF (TNI  A, IT ) . EQ.TNI 19, IT) .AND. TNI  5, I T ) . EQ. TN I 20, IT) . AND. TN 1 6 , I T ) 
1.EC.TNI21, IT ).AND.TN(7, IT) . fcQ . TN I 22, I T ) ) GOTO  3A 
CALL  INTERPI IR, IF3) 

RP V=TEMP 
ATLVL*0.: 

XV  N=T  EHP 

CALL  EFFECT!  IF3, IR, IT) 

3A  ST*ST*A( 1A, IF3 ) 

PO  = PG  *A( 15, IF3) 

FH*FH*A( 16, IF3) 

TK=TK*A(17, IF3) 

APC*  APC  * AI18.IF3) 

IFITNI2A, IT) .GE.T)  GOTO  32 
A( 19,  IF3  )*  0. 

A( 20,  IF3  I*  0. 

A( 21,  IF3  ) * 0. 

A( 22 , IF3  )=  1. 

A( 23, IF3 )*  1. 

32  ASU** AI 19, IF3) *A( 2C» IF3) *A( 21 , IF3) 

IF (ASUM.EQ.O.O) ASUM=1.0 
IXZ*A( 27, IF3 ) 

FT  (6,  IXZ  )*FT(6,IXZ)*TEMP 
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A9*SQRT(  A(9,  IF3) ) 

IRNG*  A9 

RNGINT=IRNG 

RNGINT=RNGINT4.5 

I F ( A9  .GE.RNGINT) IRNG*lRNG4l 

I F ( A9  .GE.3G.0) IRNG=30 

ROCNT  ( I R,  IRNG )*RDCNT  ( IR,  IRNO  + TEHP 
S(  IS, 1 ) = S ( IS , 1 ) ♦TEHP*MGT ( IR ) 

S(  IS,2)*S( IS»2)4TEHP*CST ( IR) 

S( IS  , 3)*S ( IS  » 3 ) ♦ C i.0-ASUM)*TN28I 
S(  IS,4)*S( IS,4)4( 1.0-AI22, IF3 ) ) *TN29T 
S ( IS , 5 ) = S ( IS,5)4(1.0-A(23,IF3) )*TN30T 
TN28T*TN28T-TN28T*( 1.0- A SUM  I 
TN29T*TN29T-TN29T *( 1.0-AI 22, 1 F3  > » 

TN30T*TN30T-TN30TM 1.0- A ( 23, IF3 I ) 

TUBFUI IXZ )*TUBFU( IXZ )4TBM( IS)*A( 5,  IF3I 

IF (TNI  13, IT).EQ.0..ANO.STYP( ISI.EQ.l. )TUBFU(IXZ)=TUBFU(IXZ>4.067 
53  CONTINUE 

I F ( KEY  .EQ.  1 ) GOTO  18 
IF (K1  .EQ.  NBA3 ) GOTO  28 
29  CALL  SHONVL ( IT) 

GOTO  999 

60  IF(TN(17,  IT).EQ..5)G0T0  61 

64  IF(TN(14, IT).LT.3.0)  GOTO  999 
ALPHA=1.3-.9/TN(14»IT) 

IF( ALPHA. LE.TN( 17, IT) ) GOTO  999 
IFCTNI9,  IT).GE.(T406LT4.0000D)  GOTO  999 
TN(17, IT)* ALPHA 
63  REFIRE=1.0 
GOTO  999 

61  NP*  TN(4» IT ) 4 1. 

I F ( NP  .LT.  6 .OR.  NP  .GT.  11)  GOTO  62 
TN ( 17, IT )*.7 
GOTO  63 

62  TN(17, IT ) = AMIN1( .75, 1.0-.5*(  1.0  - P0ST(NP,9))) 

IF (TN( 17, IT) .EQ.0.5)  GOTO  64 

GOTO  63 
999  RETURN 
END 

C*********»************************* 
SUBROUTINE  EFFECT C I A,KR,  IT ) 

C*********************************** 

COHMON(USE  MAIN) 

REAL  LVT  $ RND*RTP(KR)  $ IST=A(1,IA)  $ CN=XVN*REL (KR)  $ NPSET*NP 
ART*TN( 8 , IT ) $ LVT*TN(9,IT) 

CRSQ  * CPER  * CPER 
CTSQ  * CPET  * CPET 
TNSQ  = TN( 10, IT ) * TNI  10, IT) 

I F ( LVT  .EQ.  ART)  GOTO  1 
IF  (STYP( IST ) .EQ.  2.0)  GOTO  2 
IF (TNI  10, IT ) .EQ.  0.)  GOTO  3 
CPET  = CTSQ  4 TNSQ 
SHEAF*  .36  * (CPET  - CRSQ  ) 

CPER  * SQRT ( CRSQ  4 SHEAF) 

CPET*SQRT(CPET4SHEAF) 

GOTO  4 

3 CPET*  CTSQ  4 2500. 

SHEAF*  .36  * (CPET  - CRSQ  ) 

CPER  = SQRT ( CRSQ  4 SHEAF) 

CPET=SQRT(CPET4SHEAF) 
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GOTO  4 

2 IF ( T N ( 10  , IT)  .EQ.  0.)  GOTO  5 
CPET  * CT SO  4 TNSQ 
SHEAF*  .36  * (CPET  - CRSQ  ) 
CPER  * SORT ( CRSQ  ♦ SHEAF) 
CPET=SQRT(CP£T*SHEAF ) 

GOTO  4 

5 SHEAF*  .36  * (CTSQ  - CRSO) 
CPER  = S CRT ( CRSQ  4 SHEAF) 

CPET  * SORT ( CTSQ  4 SHEAF) 

GOTO  4 

1 I F (STYPC 1ST ) .EU.  2.0)  GOTO  6 
CPET*  CTSQ  4 3125. 

SHEAF*  .36  * (CPET  - CRSQ  ) 
CPER  * S CRT ( CRSQ  4 SHEAF) 
CPET*S0RT(CPET4SHEAF) 

GOTO  4 

6 CPET*  CTSQ  4 10000. 

SHEAF*  .36  * (CPET  - CRSQ  ) 
CPER  = SQRT ( CRSQ  4 SHEAF) 
CPET=SQRT(CPET4SHEAF> 


4 

RASR*  SQRT ( CPER/CPET ) 

MP  = 2 

IF (NP  .LT 

• 6 

.OR.  NP 

.GT.  11  ) 

MP=  1 

IF (ATLVL 
NCODE*  1 
GOTO  8 

• NE. 

0.  .AND. 

MP  .EQ.  21 

GOTO  7 

9 

IF (ATLVL 

.NE. 

0.)  GOTO 

10 

7 

NCODE*  1 
GOTO  11 

12 

IF  (ATLVL 

• NE. 

0.)  GOTO 

10 

RPV*  RPV 

♦ REL(KR) 

IF (CN  .LE 

. RPV)  GOTO  13 

10 

OVN*  0. 
IF (ATLVL 

• NE. 

0.  .AND. 

MP  .EQ.  2) 

GOTO  14 

DO  60  1=1 

1 8 

IF ( I .EQ. 

4 . 

OR.  I .EQ. 

5)  GGTO  60 

ECZ=CCOV ( I ) * (l.-( l.-CPK( I ) ) **  RPV1 
ECO*  1.  - (l.-CCOV(I)  * CPK ( I ) ) **RPV 
CSURV ( I ) * 1.  - (ECZ  4 RASR  * (ECO  - ECZ)) 

60  CONTINUE 

IFC  ATLVL  .EQ.  0.0  .AND.  MP  .EQ.  2 ) NP=1 
00  61  1=  1,3 

IB*I41 

IF (RND  .EQ.  1.0)  IB*  I 4 6 

IF (RND  .EQ.  2.  .AND.  TNI  10, IT ) . EQ.  0.)  IB  = l46 
A ( 1 4 13 , I A ) *CSURV ( I )*PER04CSURV(  l45)*PERW 

61  OVN*  OVN  4 POST ( NP, I B ) * A(l4l3,IA) 

IF (RND  .EQ.  2.  .AND.  TNI  10,  IT  ) .NE.  0.)  GOTO  15 
CPGST ( 1 ) = A( 14, I A ) *POST ( NP , 7 ) 

CPOST ( 2)=A( 15, IA)*P0ST(NP,8) 

CPOST ( 3)  = A( 16, I A)  * POST ( NP , 9 ) 

NP*NPSET 

IF ( ATLVL  .EQ.  0.  .OR.  MP  .EQ.  2)  GOTO  14 
GOT’'  16 

15  FSP*  AMAX1(0.0,PGST(NP,8)-P0ST(NP,3) ) 

FS  F=  POST (NP»2)-P0ST(NP»7)-FSP 
FPF=P0ST(NP,3) -POST! NP, 8 ) *FSP 
CPOST (1)  = A( 14, I A ) *( POST ( NP, 2 )— FSP-FSF ) 

CPOST (2)*  A ( 15, I A ) * PCST(NP, 3)  4 A(14,IA)  * FSP 


A ( 15 , I A ) * FPF 
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CPOST (3)*  A( 16f I A ) * POST(NP»  4)  ♦ A(14 

, I A ) * FSF  ♦ A ( 15 ,1  A)  * FPF 

EFF082 

NP*NPSET 

EFF083 

IF (ATLVL  .NE.  0.  .OR.  HP  .EQ.  11  GOTO 

16 

EFF084 

14 

00  62  1*4,10 

EFF085 

IF  C I .EQ.  6 .OR.  I .EQ.  7 .OR.  I .EQ. 

8) 

GOTO 

62 

EFF086 

ECZ*CCOV(I)  * ( l.-< l.-CPKI III  ♦*  RPV) 

EFF087 

ECO*  l.  - (l.-CCOVII)  * CPKI I ) )**RPV 

EFF088 

CSURV(I)*  1.  - (ECZ  ♦ RASR  * IECO  - ECZI) 

EFF089 

62 

CONTINUE 

EFF090 

DO  63  1*4,5 

EFF091 

A ( 1 + 13, I A)*CSURV( I )*PERO*CSURV( I*5)*PERW 

EFF092 

OVN=OVN*POST(NP,I*1)*A( I*13,IA> 

EFF093 

63 

CPOST III*  A(  1*13, I A ) *P0ST(NP,I*6) 

EFF094 

16 

A( 12, I A» - OVN 

EFF095 

IF ( ATLVL  .EQ.  0.)  GOTO  17 

EFF096 

IF (OVN  .LE.  ATLVL 1 GOTO  18 

EFF097 

I F ( LVT  .EQ.  ART  .AND.  STYP(IST)  .EQ.  2 

.1 

GOTO 

19 

EFF098 

I F ( LVT  .NE.  ART)  GOTO  20 

EFF099 

CPET*  CTSQ  ♦ 19400. 

EFF100 

SHEAF*  .36  * (CPET  - CRSQ  ) 

EFF101 

CPER*SQRT(CRSQ*SHEAF) 

EFF102 

CPET*SQRT (CPET ♦SHEAF) 

EFF103 

RASR*SQRT ( CPER/CPET ) 

EFF104 

GOTO  (21,22),  HP 

EFF105 

21 

NCODE*  2 

EFF106 

6 

K«1 

EFF107 

REF*CRE(K) 

EFF108 

CALL  CPV 

EFF109 

CCOV ( K)=  EC1 

EFF110 

KB*K 

EFF111 

00  64  K*2,8 

EFF112 

IF ( K .EQ.  4 .OR.  K .EQ.  5)  GOTO  64 

EFF113 

IF(CREtK)  .EQ.  CRE(KB) ) GOTO  23 

EFF114 

REF=CRE(K) 

EFF115 

CALL  COV 

EFF116 

CC0V(K)=EC1 

EFF117 

GOTO  64 

EFF118 

23 

CCOV(K)=  CCOV ( KB ) 

EFF119 

KB*K 

EFF120 

64 

CONTINUE 

EFF121 

GOTO  (9,20),  NCODE 

EFF122 

22 

NCOOE*  2 

EFF123 

11 

I*  4 

EFF124 

RE F=CRE( I ) 

EFF125 

CALL  COV 

EFF126 

CCOV( I )*EC1 

EFF127 

IB*  I 

EFF128 

00  65  1*5,10 

EFF129 

IF ( I .EQ.  6 .OR.  I .EQ.  7 .OR.  I .EQ. 

8) 

GOTO 

65 

EFF130 

IF(CREU)  .EQ.  CRE(IB))  GOTO  24 

EFF131 

REF=CRE( I ) 

EFF132 

CALL  COV 

EFF133 

CCOV( I)=EC1 

EFF134 

GOTO  65 

EFF135 

24 

CCOV ( I)*  CCOV( IB) 

EFF136 

IB*  I 

EFF137 

65 

CONTINUE 

EFF138 

GOTO  (12,20),  NCOOE 

EFF139 

20 

UP*  1000. 

EFF140 

DOWN*  0. 

EFF141 
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r 


28 

66 

26 

39 

67 

29 


32 
31 

33 
68 

34 
36 

35 


17 

37 

69 

40 

70 

38 

13 

27 

71 

41 


CN  = 500. 

GOTO  (25,26),  MP 
NC0DE=  l 
GOTO  27 
SRV*  0. 

DO  66  1=1,3 

SRV=(CSURV( I )*PERO  ♦ CSURV( [45 )*PERW)*CPOST( I)  + SRV 

GOTO  29 

NC0DE=1 

GOTO  30 

SRV=  0. 

DO  67  1=4,5 

SRV=  ( CSURV ( I ) *PERO  *■  CSURV(  I*5)*PERW)*CP0ST(  I)  «•  SRV 
IF ( SRV  .GT.  .95  .OR.  CN  .GT.  980.)  GOTO  19 

IF ( ATLVL  - .005. LE.  SRV  .AND.  SRV  .LE.  ATLVL  ♦ .005)  GOTO  31 
IF (SRV  .GT.  ATLVL)  GOTO  32 
UP  =CN 

CN».5*(UP*00WN> 

GOTO  (25,26),  MP 
00  WN=  CN 
CN=.5*(UP*D0WN) 

GOTO  (25,26),  MP 
A ( 13 , I A ) = ( CN+RPV ) * RELI(KR) 

I F ( LVT  .EG.  ART  .AND.  CN  .GT.  RPV)  GOTO  19 
GOTO  (33,34),  MP 
DO  68  1*1,3 

A( 1*18, I A)*(CSURV( I)*PERO  ♦ CSURV( I *5 ) *PERW ) * CPOST(I) 

GOTO  35 
DO  36  1=4,5 

A(  I+18,IA)=(  CSURV  ( I ) *PERO  ♦ C SURV< I +5 ) *PERW ) * CPOST(I) 

I F ( A ( 22 , I A ) .EG.  C.)  A( 22, IA)=  1. 

IF(A(23,  IA).EQ.0.0)A(23,  I A ) = 1 .0 
GOTO  999 

CN*CN  - RPV  * RELMKR) 

NCODE=  2.  f 

GOTO  27 
DO  69  1*1,3 

A(  1 + 18, 1 A ) = (CSURV(I)  * PERO  ♦ CSURV(I*5)  * PERW)  * CPOST(I) 
ATLVL*  ATLVL  ♦ A(I*18, IA) 

IF(MP  .EG.  1)  GOTO  38 
NCODE*  2 
GOTO  30 
DO  70  1=4,5 

A(I*18,IA)=  ( CSURV ( I ) * PERU  ♦ CSURV(I*5)  * PERW)  * CPOST(I) 
AT  LVL=  ATLVL  ♦ A(I*1P, IA) 

IF ( A( 22, I A)  .EQ.  0.)  A(22,IA)=  1. 

I F ( A ( 23, IA).EQ.O.0)A(23,  I A ) = 1 . C 
GOTO  999 
OVN*  0. 

NCODE*  3 
CO  71  1=1,8 

IF ( I .EG.  4 .OR.  I .EG.  5)  GOTO  71 
ECZ=  CCOV(I)  * ( 1 .-( l.-CPK (1)1  ♦*  CN) 

ECO=  1.  -(1.  - CCOV(I)  * CPK(D)  **  CN 
CSURV ( I ) = 1.  -(ECZ  ♦ RASR  * (ECu-ECZ)) 

CONTINUE 

GOTO  (28,37,41),  NCOOE 
IF  (MP  .EG.  2)  NP= l 
DO  72  1=1,3 
IC=I*1 


EFF142 
EFF143 
EFF144 
EFF145 
EFF146 
EFF147 
EFF148 
EFF149 
EFF150 
EFF15 1 
EFF152 
EFF153 
EFF154 
EFF155 
EFF156 
EFF157 
EFF158 
EFF159 
EFF160 
EFF161 
EFF162 
EFF163 
EFF164 
EFF165 
EFF166 
EFF167 
EFF168 
EFF169 
EFF170 
EFF171 
EFF172 
EFF173 
EFF174 
EFF175 
EFF176 
EFF177 
EFF178 
EFF179 
EFF180 
EFF181 
EFF182 
EFF183 
EFF184 
EFF185 
EFF186 
EFF187 
EFF188 
EFF1R9 
EFF190 
EFF191 
EFF192 
EFF193 
EFF194 
EFF195 
EFF196 
EFF197 
EFF198 
EFF199 
EFF200 
EFF201 
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IF (RNO  .EQ.  1.0  .OR.  HP  ,EQ.  2)  IC=  I ♦ 6 

EFF202 

I F ( RNO  .EQ.  2.  .AND.  TNI  10, IT ).EQ.  0.)  IOI  + 6 

EFF203 

A(  1 + 13, I A )=CSURV(  I )*PERO*CSURV( l*5)*PERW 

EFF204 

A1 * A ( l*13,IA)*P0ST(NP, IC  » 

EFF205 

A ( 1*18, I A »=  A 1 

EFF206 

72 

0VN=  OVN  ♦ A 1 

EFF207 

NP=NPSET 

EFF208 

IF(MP  .EQ.  1)  GOTO  42 

EFF209 

NCOOE=  3 

EFF210 

30 

00  73  1=4,10 

EFF211 

IF  C I .EO.  6 .OR.  I .EQ.  7 • JR . I .EQ.  8)  GOTO  73 

EFF212 

ECZ=  CCOV(I)  * ( l.-l l.-CPKI I ))  ♦♦  CN) 

EFF213 

ECO®  1.  -(1.  - CCOVI  I)  * CPK(U)  **  CN 

EFF214 

CSURV(I)=  1.  -IECZ  ♦ RASR  * (ECJ-ECZ)) 

EFF215 

73 

CONTINUE 

EFF216 

GOTO  (39,40,43),  NCOOE 

EFF217 

43 

DD  74  1=4,5 

EFF218 

Al* ( CSURV ( I )*PERG*CSURV( I *5 )*PERW) *POST ( NP , 1*1 ) 

EFF219 

A ( 1*18, IA)*A1 

EFF220 

74 

OVN=  OVN  ♦ Al 

EFF221 

42 

I F ( A( 22, I A ) .EQ.  C.)  A(22,IA)=  1. 

EFF222 

IF ( A( 23, IA) .EQ.0.0)AI23, IA)=1.0 

EFF223 

A ( 12  , I A ) =OVN 

EFF224 

GOTO  999 

EFF225 

18 

A ( 13, I A) = RPV  ♦ RELI(KR) 

EFF226 

GOTO  (44,45),  HP 

EFF227 

44 

DO  75  1=1,3 

EFF228 

IE  = I ♦ 1 

EFF229 

IF ( RND  .EQ.  1.0)  IE  = I ♦ 6 

EFF230 

I F ( RNO  .EQ.  2.  .AND.  TN( 10, IT ).EQ.  C. ) IE=I+6 

EFF231 

75 

A(  1*18, IA)=  A( 1*13, IA)  * PCST ( NP » I E ) 

EFF232 

GOT)  46 

EFF233 

45 

00  76  1=4,5 

EFF234 

76 

A(  1*18, I A )=  A ( 1*13, IA)  ♦ POSTINP, 1*1) 

EFF235 

46 

IF ( A( 22, 1 A ) .EQ.  0.)  A(22» I A ) = 1. 

EFF236 

I F ( A ( 23 , IA).EQ. 3. 0)4(23,  I A ) = 1 .0 

EFF237 

GOTO  999 

EFF238 

19 

A ( 13, I A ) = 5000000C. 

EFF239 

999 

RETURN 

EFF24C 

END 

EFF241 

C * ♦ 

* * 

****** 

C0V001 

SUBROUTINE  COV 

C0V002 

C 

COHPUTES  A CIRCLE  ON  CIRCLE  ONE  ROUND  COVERAGE  BY 

16 

INTERVALS 

COV003 

C * * 

************************* 

♦ * 

♦ * * * * * 

COV004 

COPHON  W,W1,PI  I,CPET,RT,REF,EC1 

C0V005 

T1=REF/RT 

C0V006 

T2=T1*T1 

C0V007 

FR=0. 

COV008 

IF(CPET)  1,2,1 

C0V009 

1 

RM AX=REF  ♦ RT 

C0V010 

TEMP=3.61  * CPET 

C0V011 

CPS  1 = 1./ ( CPET  * CPET) 

C0V312 

IF(RMAX-TEMP)4,4,3 

C0V013 

4 

RHAX1*RH AX 

C0V014 

GOTO  5 

C0V315 

2 

IF ( REF  - RT)  6,7,7 

C0V016 

6 

EC 1=T2 

C0V017 

GOTO  999 

C0V018 

7 

EC  1=1. 

C0V019 

GOTO  999 

C0V020 
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1 RMAX*TFMP 
RMAXUTEMP 

5 DR1*RMAX*.0625 

R*  OR  1 
DR  = R 

DELTA^ORl  * .25 
61  IF (REF  - R - RTI  71,8,8 

ft  FIR*  i. 

GOTj  9 

71  IF  (RT  - R - REF)  Ij, 11,11 
II  FIR-  T2 
GO  9 

.0  T X * R / RT 

CBHTX*TX  *T  2 - 1 . )/  ( 2.  * TX  ♦ T1 » 

IF(CB-1.-M12,13,13 
12  IF  CCB^l. )14, 14,15 

15  P*  ARCCOS ( CB ) 

GO  TO  16 

1J  B*0. 

GO  Tu  16 
14  B*  3. 141 59 

16  co*(Tx*tx  -t 2 *1. )/<?•*  rx) 

IF (CO-l. ) 17,18, IP 

17  IF(C0*1.  ) 19, 19, 2^ 

20  0*  ARCCOS ( CO ) 

SO*  ( l«-CC*C0)**»5 
GO  TO  21 
lb  0*0. 

SDO. 

GO  21 
19  0*3.14159 

S0*0. 

21  FI R* ( C*fi  ♦T 2-TX *S0 ) ♦ PII 

9 RHOR=Wi*R*EXP(-W*R*ft*CPS I )*CPSl 
T6*Flft*RN0R 
FR*  FR ♦T  6 

IF(ABS(R  - RM  AX ) - OtLfA)  2«_,22,23 

2 3 R*R*DR 

GO  TO  61 
22  EC  1 = FR*DK 1 

999  Rt  TURN 
ENC 

£********************************♦** 

SUBROUTINE  OUTPUT 

DIMENSION  I COUNT (30), IR0CNT(50, 30 ) , H T ( 10 ) , HA ( 1 0 ) 

CO  MMON( USE  MAIN) 

WG*0 . i CT*0.  $ C AS*0.  i TK5=C • t APCS*0.  S SO=NQ 
SACO=NACQ 

WRITE(6,134)T,MIXID 

WR  ITF(6,  100 ) S ACQ, SPFRS, STANK , SAPC, AMWS 
WR  ITE (6, 101 ) 

SACO*NACQ  - NRPO  - NRW2 

00  10  I-  1 , NSYS 

IF (KS IGf I ).EG.O)  GCTG  10 

S(  I , 3 )*S ( l , 3 ) ♦( S ( I,4)-HT(  I) )*4.C*(S( I,5)-HA( I ) ) ♦IS#  0 
WR  ITE( 6, 102) SYS  1 0 ( I),S(I,2),S(T,l),S(I,3),S(I,4),S(I,5) 

HT ( I )*S< 1,4) 

HA ( l ) =S ( 1,5) 

WG*WG4S( 1,1 ) 


C0V021 
C0V022 
C0V023 
C0VQ24 
C0V075 
C0V026 
C0V027 
C0V02P 
C0V029 
COV030 
C0VD31 
C0V032 
C0V033 
C0V034 
COV035 
C0V036 
C0V037 
C0V038 
C0V039 
C0V040 
C0V041 
COV042 
C0V043 
C0V044 
C0V045 
C0V046 
C0V047 
C0V048 
C0V049 
COV050 
COV051 
C0V052 
C0V053 
C0V054 
C0V055 
C0V056 
C0V057 
C0V056 
C0V059 
C0V06  j 
C0V061 
COV062 
OUTOOl 
0UT002 
0UT003 
0UT004 
0UT005 
OUT006 
0UT007 
0UT008 
0UT009 
0UT010 
OUTOil 
0UT012 
OUTOi 3 
0UT014 
0UT015 
0UT016 
OUTOI 7 
OUTOI 8 
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CT  *CT  *S ( 1,2) 

CAS«CAS*S< 1,3) 

TKS*TKS  ♦ S( 1,4) 

APCS* APCS  ♦ S!  1,5) 

10  CONTINUE 

PCTQ* ( SO/ ( SACQ  ♦ .000001))  * 100. 
HRITE!6,103)CT,HG,CAS,TKS,APCS,PCTQ,SMH 
HRITE16, 104) 

DO  3 1*1,30 
3 ICOUNT ( I ) * I 

WRITEI6, 106) ( ICOUNT I I), 1*1,30) 

DO  2 I* l,NROS 
DO  2 J=l » 30 

2 IRCCNT1I, J)*RDCNT!  1,J) 

DO  1 I* l»NROS 
RSUM*  0.0 

IFIKRIGI  D.EQ.O)  GOTO  1 

HRITE!6,105)RNDID! I),< IRDCNTI I,J),J*1,30) 

DO  20  K= 1 , 30 

20  RSUH  * RSUH  ♦ ROCNTtl.K) 

HR  ITE ( 6, 116)  RSUH 
1 CONTINUE 

NRACQ*  NACO  - NOM 
NRTGT*  NTGT  -NOH 
NRQ=NQ  - NQOH 
NQ  AL=  NO  ♦ KOUNT 
NRQl=NQAL  - NQOH 
NRF*NFH  - NOHF 
NT  C=  NFMD  ♦ NOHF 
NRFL*NRF  - NFHD 
NREAC*  NACQ  - NTGT 
MR  ITE (6, 107 ) 

HR  ITE ( 6, 108 ) NOH, NRACQ, NACQ 
HR  ITE ( 6, 109 ) NOH, NRTGT, NTGT 
HRITEI6, 113)  NQOH,NRQ, NQ 
HR  ITE  C 6, 1 14 ) NQOH,NRQL,NQAL 
HR  ITE (6, 110 )NOHF, NRF,NFH 
WRITE  lb, 1 11 ) NOHF, NFHD, NTD 
HR  ITEI6, 112)  NRFLtNRFL 

HR  ITE (6, 115)  NQLP.NQD, NQOH, KOUNT, NRPD,NRH2,NREAC 
IFIT.LT.TMX)  GOTO  999 
DO  5 I*1,NSYS 
HT 1 1 )=0. 

5 HA ( I ) =0. 

999  RETURN 

100  F0RHATI5H  ACQ*,F10.2, 13X, 5HPERS*,F 10.2, 3X, 5HTANK=,F10.2 ,3X,4HAPC= , 
IF10.2,3X, 10HH IL  WORTH*. F 10.2/ ) 

101  F0RMATC11H  SYSTEM,  8X.4HC0ST, 10X, 6HHE I GHT, 8X , 9H PERSONNEL, 0 X, 5H 

1 TANKS , 10X ,4HAPCS ) 

102  FORMAT12X,F6.2,5X,F10.4,5X,F1C.4,5X,F10.4,5X,F10.4,5X,F10.4) 

103  FORMAT ( / 12H  TOTALS  ,4X,F10.4,  5X.F10.4,  5X.F10.4,  5X.F10.4,  5X 
1,F10.4,5X, 6HPCTQ  *, F10. 4, 2X, 3HHH=, FB. 2 ) 

104  FORMAT C// ,56X, 19HRANGE  IN  KILCMETERS/I 

105  FORMAT ( 1H  ,F8.2,30I4) 

106  FORMAT! 9H  ROUND  ID, IX, 1 2 , 291 2X, 12 ) ) 

1C7  FORMAT!// »35X»6H  OTHER, 9X,7HREGULAR,9X,6HT0TALS,/,34X,8HMISS IONS, 
18X , 7HT  ARGETS , / ) 

108  FORMAT! 16H  ACQU IS  I T I ONS*, 19X, 3! 1 5, 1 IX ) , / ) 

109  F0RMAT118H  NO.  OF  T ARGETS*, 17X , 3! I 5, l IX ) , / ) 

110  F0RMATI22H  NO.  HSN/TGTS  F IRED=, 13X, 3! I 5, 11X ) , / ) 


0UT019 

0UT020 

0UT021 

0UT022 

0UT023 

0UT024 

0UT025 

0UT026 

0UT027 

0UT028 

0UT029 

0UT03G 

0UT031 

0UT032 

0UT033 

0UT034 

0UT035 

0UT036 

0UT037 

0UT038 

0UT039 

0UTD43 

0UT041 

0UT042 

0UT043 

0UT044 

0UT045 

0UT046 

0UT047 

0UT048 

0UT049 

0UT05O 

0UT051 

0UT052 

0UTO53 

0UT054 

0UTO55 

0UT056 

0UT057 

0UT058 

0UT059 

0UT060 

0UT061 

0UT062 

0UTO63 

0UT064 

0UT065 

0UT066 

0UT067 

0UT068 

0UT069 

0UT070 

0UT071 

0UT072 

0UT073 

0UT074 

0UT075 

0UT076 

0UT077 

0UT078 
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c 

c 


111  F0RMATI25H  NO.  MSN/TGTS  DEFEATED-, 10X,3U5,llX) , /) 

112  FORMAT { 22H  TGT  FIRED  BUT  LOST-, 17X,1H0,2( 11X, 1 5) ,/) 

113  F0RMATI23H  NO.  MSN/TGTS  QUEUED-, 12X.3I 15, 11X) ,/) 

114  FORMAT C30H  SUM  QUEUED  ♦ STILL  ON  L!ST»,5X,3( I5,llX) ,//! 

115  F0RMATI67H  QUEUED  MISSION  TOTAL  INCLUDES  THOSE  DROPPED  DUE  TO  LO 
IN  PRIORITY!, 15, 35H),  THOSE  OEPARTED  BEFORE  ATTEMPT  T0,/,6H  FIRE!, 
215 ,45H),  AND  OTHER-TYPE  MISSIONS  TRIEO  BUT  CANT  00 (, 15, 2H ).,//, 
331H  NO.  OF  TGTS  STILL  ON  TGT  LIST-, I5,LH.,//,54H  NO.  OF  PREVIOUSLY 
4 DEFEATED  TGTS  WHICH  ARE  REACQUIRED-, 15, 1H. ,//,45H  NO.  OF  TARGETS 
5C0MBINED  tWlTHIN  200  METERS)- , 1 5, 1H. , //,29H  TOTAL  OF  ALL  REACQUISI 
6TI0NS*,I5,lH.,//> 

116  FORMAT !8X,9H  RNDSUM  -,F12.4) 

134  FORMAT  1 6H1T IME-, F8.4, 6X, 16A5,/) 

END 

*********************************** 

SUBROUTINE  SPECILI IT) 

*********************************** 


COMMON  ! US E MAIN) 

MORG-TN! 15, IT)  t M0RGT1-0  $ M0RGT2-0  t M0RGT3-0 

20  IKR-O  $ NAK-O  S CSTM-1000000.0 
DO  1 IFS-1,NFU 

IFIKFIGI I FS ) .NE.MORG )G0T0  1 
IF ( TUBFU! IFS ) .GE. I T+0ELT-.00001 ) ) GOTO  1 
DO  2 ISS-l.NSYS 
IFIKSIG! ISSI.EQ.O )GOTO  2 
IF ( FS  101 IFS) .EQ.SYSIDi ISS) )GOTO  21 
2 CONTINUE 

NR  I T E ( 6, 104 ) FS ID! IFS),MORG 

104  F0RMAT112H  FIRE  SYSTEM, F8. 2, 25HIS  NOT  IN  LIST  OF  SYSTEMS, 9HECHEL0N 
1 - , I 5 ) 

STOP 

21  NA-  NA  + 1 
A!  27  »NA)  = IFS 
A! 1 ,NA)-  ISS 

A!  2,NA)-TUBFU( IFS) 

R-HBLD! I SS)*RSPY! ISS ) *! T-TZRO  ) 

Z-R-FTI6, IFS  ) 

IF!  TNI  14,  IT)  .GE.IO.OZ-AMINUR+QBLD!  I SS ) ,24. 3*RSPY ! I SS ) ♦HBLD II SS ) ) 


1-FT (6, IFS ) 

R-HNMX 1ISS)-FT!6, IFS)*FT!2,  IFS) 

R- AMINl! R,Z ) 

NS-NSITE! IFS  ) 

DO  3 INSS-1,NS 

IF1T.LT.TA! INSS, IFS) )GOTO  22 

IF (TA( INSS,IFS).LE.T.AND.T.LE.TD! INSS, IFS) )G0T0  23 
3 CONTINUE 

NR  ITE (6, 100 ) IFS 

100  FORMAT i 16H  ERROR  FIRE  UN  I T, 15 , 39HD0ES  NOT  HAVE  A TIME  TO  MATCH  GAM 


IE  TIME) 

STOP 

22  A!5,NA)-FRWM< ISS) 

GOTO  24 

23  A 1 5, NA)« 1.0 

24  A(6,NA)-XS( INSS, IFS) 

A!7,NA)-YS! INSS, IFS) 

IFITNI8, ITI.EQ.TNI9, IT  I )GOTO  25 
Z-SNMX! ISS)*A(5,NA) 
A!3,NA)-SR0F(ISS) 

GOTO  26 

25  Z- ONMX !ISS)*A!5,NA) 


0UT079 

0UT080 

0UT081 

0UT082 

0UT0B3 

0UT084 

0UT085 

0UT086 

0UT087 

0UT088 

0UT089 

0UT090 

0UT091 

0UT092 

SPC001 

SPC002 

SPC003 

SPC004 

SPC005 

SPC006 

SPC007 

SPC008 

SPC009 

SPCOIO 

SPC011 

SPC012 

SPC013 

SPC014 

SPC015 

SPC016 

SPC017 

SPC018 

SPC019 

SPC020 

SPC021 

SPC022 

SPC023 

SPC024 

SPC025 

SPC026 

SPC027 

SPC028 

SPC029 

SPC030 

SPC031 

SPC032 

SPC033 

SPC034 

SPC035 

SPC036 

SPC037 

SPC038 

SPC039 

SPC040 

SPC041 

SPC042 

SPC043 

SPC044 

SPC045 

SPC046 
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A ( 3 , NA ) - DROP ( ISS ) 

SPC0A7 

26 

R*  AMINUR.Z  ) 

SPC0A8 

A( A,NA»*R 

SPC0A9 

A( 8* NAI-MORG 

SPC050 

A(9tNA)s(A(6fNA)-TN( 11, IT ))**2* ( A I 7,NA »-TN 1 12 , I T ) ) **2 

SPC051 

IFU  ( A, NA ) .LE.  0.)  GOTO  1 

SPC052 

K«ISS 

SPC053 

GO  TO (40, 40, A 1,41, 41,42,43,44 

t A5, 

A6),K 

SPC05A 

40 

K*  2 

SPC055 

GOTO  19 

SPC056 

41 

K*  3 

SPC057 

GOTO  19 

SPC058 

42 

K*A 

SPC059 

GOTO  19 

SPC060 

43 

K*  5 

SPC061 

GOTO  19 

SPC062 

44 

K=  6 

SPC063 

GOTO  19 

SPC06A 

45 

K«7 

SPC065 

GOTO  19 

SPCU66 

46 

K*  8 

SPC067 

19 

00  10  IST=1» ITC 

SPC068 

IF (TNIl, ITI .NE.AMSNI 1ST, 1) IGOTO 

10 

SPC069 

RDNO=AMSN( IST,K) 

SPC070 

A( 13,NA)=RDN0 

SPC071 

GOTO  11 

SPC072 

10 

CONTINUE 

SPC073 

WRITEI6, 103ITNI 1, IT) 

SPC07A 

103 

FORMAT (7H  TARGET, F8.1,A6HIS 

A SPECIAL  MISSION  BUT  NO  RDS  ASSIGNED 

SPC075 

1T0  IT) 

SPC076 

STOP 

SPC077 

11 

1F(A(A,NA).LT . RDNGIGOTO  1 

SPC078 

DO  A IRS=1,NRCS 

SPC079 

IFIKRIGI  IRS  1 .EQ.OICOTO  A 

SPC080 

DO  5 LS* 1 ,NSYS 

SPC081 

IF  (SYS  10  ( ISSI.EQ.SYSRDILS,  1MGCT0  27 

SPC082 

5 

CONTINUE 

SPC083 

WRITEI6,  102)SYSIDUSS» 

SPC08A 

102 

F0RMATI29H  ERROR,  UNDEFINED 

SYSTEM.  ID-,F 10. 2 ) 

SPC085 

STOP 

SPC086 

27 

DO  6 MS=2 , 10 

SPC087 

I F ( RNOIO ( IRS ) • EC.SYSRCMLSfHS ) )GOfO  28 

SPC088 

6 

CONTINUE 

SPC089 

GOTO  A 

SPC090 

28 

I F ( A(9f NA) .GT.R2MXC IRS) )GOTO  4 

SPC091 

TCST=CST ( IRS ) *RDNO 

SPC092 

IFITCST.GE.CSTMI  GOTO  A 

SPC093 

CSTM=TCS  T 

SPC09A 

A ( 2A, NA  I-IRS 

SPC095 

JFS=NA 

SPC096 

A 

CONTINUE 

SPC097 

IF(CSTM,GE» 10C000C.C ) GOTO  1 

SPC098 

NAK-NAK+ 1 

SPC099 

1 

CONTINUE 

SPC100 

IF (NAK.EG.OIGOTO  29 

SPC101 

IXZ=A( 27 , JFS ) 

SPC102 

IKR=A ( 2A , JFS I 

SPC103 

RDNO*  A ( 13, JFS 1 

SPCIOA 

FT  (6,  IXZ  l = FT ( 6, IXZ)*RDNO 

SPC105 

I S S = A ( 1 , JFS ) 

A-38 

SPC106 

A9«SQRT( A(9, JFSI) 

SPC107 

£ 

IRNG*A9 

SPC10B 

RNGINT=I RNG 

SPC109 

RNGINT=RNGINT*#5 

SPC110 

IF  1 A9.GE.RNG  I NT ) IRNG= IRNG+1 

SPC111 

IF (A9.GE.30.0) IRNG=30 

SPC112 

RDCNT ( IKR, lRNG)=RDCNr( IKR. IRNG ) ♦RUNG 

SPC113 

si  iss,n=s<  iss,  mwcn  ikr>*rono 

SPC116 

S(  ISS,2)=S(  ISS,2UCST< IKR ) *RDN0 

SPC115 

TUBFUI IXZI=TUBFU( IXZ  )*TBMI ISS l*A< 5.JFSI 

SPC116 

IFISTYPI ISS) .EQ.2.0IG0T0  9 

SPC117 

B*> (RONO-AI5, JFSI*TPFU( ISS ) ) / 1 A I 5, JFSI *TPFU( I SS ) *A ( 3, JFS ) ) 

SPC118 

8*  AMAXi ( 0 .0t  B ) 

SPC119 

TUBFUI IXZ )=TUBFU(  IXZ  )*B 

SPC120 

9 

SMW»SMW  ♦ TNIIA.m 

SPC121 

OE  FSP=1* 

SPC122 

GOTO  999 

SPC123 

29 

IFIMORG.EQ.IIGOTO  30 

SPC126 

IF (M0RG.EQ.2 IGOTO  31 

SPC125 

IFIM0RG.E0.3IG0T0  32 

SPC126 

30 

IF ( MORGT 2.EQ.1IG0TC  33 

SPC127 

HO  RGT2-1 

SPC128 

MO  RGT1=1 

SPC129 

MO  RG*2 

SPC130 

GOTO  36 

SPC131 

33 

IFIM0RGT3.EQ.1IG0T0  999 

SPC132 

HORGT 1-1 

SPC133 

MORGT  3=1 

SPC136 

HO  RG=3 

SPC135 

GOTO  36 

SPC136 

• 

31 

IF ( MORGT l* EQ • 1 ) GOTO  35 

SPC137 

MO  RGT2=i 

SPC138 

M0RGT1=1 

SPC139 

M0RG=1 

SPC160 

GOTO  36 

SPC161 

35 

I F ( MORGT  3 • EQ • 1 IGOT 0 999 

SPC162 

M0RGT2=1 

SPC163 

MO  RGT3=1 

SPC166 

M0RG*3 

SPC165 

GO  To  36 

SPC166 

32 

IF  ( MORGT 2. EQ . 1 IG'jTO  36 

SPC167 

M0RGT3=1 

SPC168 

M0RGT2=1 

SPC169 

MO  RG=  2 

SPC150 

GOTO  36 

SPC151 

36 

IF  I MORGT 1 .EQ  . 1 IGOTO  999 

SPC152 

MO  RGT3=1 

SPC153 

MORGT  1=1 

SPC156 

«• 

M0RG=1 

SPC155 

34 

00  8 IC=i,NA 

SPC156 

00  8 ICR=1,  27 

SPC157 

A ( ICR,  10=0.0 

SPC158 

• 

6 

CONTINUE 

SPC159 

NA=0 

SPC160 

GOTO  20 

SPC161 

999 

RETURN 

SPC162 

END 

SPC163 

• 
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This  appendix  provides  a flow  chart  of  the  Legal  Mix  main  program 
and  each  of  the  sub-routines  contained  in  the  model.  In  addition,  a 
verbal  description  of  the  program  accompanies  the  flow  charts,  to 
assist  the  reader  in  following  the  program  logic. 
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Program  Element:  Main  Program 

Symbolic  Name:  Main  Program 

Arguments  in  Call  Statement:  Not  Applicable 

Subroutines  which  call  Main  Program:  Not  Applicable 

Subroutines  called  by  Main  Program: 

PRELIM,  RDSYS,  RDRND,  RDFU,  RDMIX , TZERO,  RTAPE,  COMPAR, 

SPECIL,  REMOVE,  DIRSUP,  DIVISN,  CORP,  OUTPUT 

The  main  program  initially  provides  for  the  reading  of  preliminary 
data  (PRELIM)  and  weapon  system,  round  and  fire  unit  data  (RDSYS,  RDRND, 
RDFU)  from  input  cards.  The  game  "mix"  of  systems,  rounds  and  fire  units 
is  then  input  (RDMIX)  and  various  counters,  arrays  and  clocks  are 
initialized  (TZERO).  For  each  15-minute  game  interval,  the  program  then 
reads  in  from  tape  the  target  data  for  all  targets  arriving  during  the 
15-minute  interval  (RTAPE),  and  as  each  target  is  input  it  is  placed 
on  the  target  array  TN(I,J)  in  priority  order  (COMPAR). 

Each  target  is  added  the  appropriate  number  of  times  (according  to 
game  intensity)  and  counters  for  target  acquisitions,  target  types,  and 
target  composition  (personnel,  tanks  and  APC's)  are  increased.  When  all 
targets  for  a given  15-minute  interval  have  been  input,  the  program  then 
attempts  to  attack  each  target  on  the  priority-ordered  target  array.  If 
a given  target  has  been  previously  defeated,  it  is  removed  from  the  tar- 
get list  (REMOVE);  and  if  a target  has  been  previously  attacked  but  not 
defeated,  previous  damage  inflicted  is  charged  to  the  target. 

If  the  target  is  a special  (or  "other")  mission  type,  i.e.  a 
smoke,  illumination  or  Harassment  5 Interdiction  (HQI)  mission,  sub- 
routine SPECIL  is  then  called  to  attempt  accomplishment  of  the  mission. 
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MAIN  PROGRAM 
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MAIN  PROGRAM  (cont) 
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MAIN  PROGRAM  (cont) 


N 1 

Set  tgt  posture 
(NP) 

Clear  "A"  array 

B-9 
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For  regular  targets,  either  Direct  Support  (DIRSUP) , General  Support 
(DIVISN)  or  Corps  (CORP)  subroutines  are  called  to  attempt  engagement, 
depending  upon  the  echelon  (DS,  GS  or  CORPS)  which  acquired  the  target. 
If  a regular  target  cannot  be  attacked  at  Threshold  A attack  level, 
engagement  is  re-attempted  at  a lower  attack  level  (Threshold  B) . 

If  a regular  target  is  attacked,  it  is  removed  from  the  target 
array  and  the  attacked-target  counter  is  increased.  For  special 
missions,  the  target  is  removed  whether  fired  or  not,  with  appropriate 
counter  (s)  being  increased. 

After  all  targets  on  the  list  for  a given  15-minute  game  increment 
have  been  considered,  appropriate  game  and  fire  unit  (FU)  clocks  are 
then  increased  by  15  minutes,  and  FU  ammo  counters  are  incremented. 

The  program  then  begins  the  next  15-minute  game  interval  by  reading 
in  the  targets  for  that  interval.  At  the  end  of  four  such  cycles 
(every  game  hour)  subroutine  OUTPUT  is  called  to  provide  detailed  data 
for  analysis. 

The  program  continues  this  cycle  until  the  game  clock  exceeds  the 
input  maximum  game  time,  at  which  point  the  target  tape  is  re-wound 
and  subroutine  RDMIX  is  called  to  specify  the  system- round-fire  unit 
mix  for  the  next  play  of  the  game.  If  no  additional  mixes  are  to  be 
played,  the  program  stops. 
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Attack  next  tgt  on  tgt  list. 


MAIN  PROGRAM  (cont) 


The  following  page  is  blank. 


MAIN  PROGRAM  (cont) 
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REMOVE 


Remove  tgt 
from  tgt  list. 
Set  tgt  ID  = 0. 

eT33 


Increase  sum  of 
msns  queued  5 of 
tgts  departed. 
(NQ,  NQD) 

(5 
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Update  the 
fractional 
casualties 
for  this  tgt 


Delete  this  tgt  from 
TLOST  list  $ 
decrease  count  of 
"lost”  tgts.  (LOSS) 
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Program  Element:  Preliminary  Initialization 

Symbolic  Name:  PRELIM 

Arguments  in  Call  Statement:  None 

Subroutines  which  call  PRELIM:  Main  Program 

Subroutines  called  by  PRELIM:  None 

This  subroutine  is  called  at  the  start  of  the  main  program  and 
provides  for  card  input  of  a game  force  identifier  code,  game  time 
parameters,  definition  of  game  intensity,  and  definition  of  allowable 
target  posture  mixes.  See  Card  Sets  1,  2 and  3 for  explanation  of 
inputs.  (Table  3.1) 

PRELIM  also  defines  constants  used  elsewhere  in  the  program. 
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Subroutine  PRELIM 


CjEZ) 


f Read  Force 
Complex  Name 
(CXID) 

Print  Fore 
Complex  N< 
(CXID) 

:e 

une 

Read: 

T2R0  - Game  Start  Time 
TMX  - Game  Maximum  (End)  Time 
FACT  - Game  Intensity  Identifier 


Define  DELT 
1/4  hour 


Read  in  Tgt  Posture  Mix  Data 

for  the  12  allowable  posture  mixes. 


Define  Constants: 

W - In  2. 

PI  - 3.14159 
PII  - 1/PI 

WKS  - -1 ./CPI  x In  .7) 
W1  - 2 x In  2. 


^ RETURN  ^ 
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Program  Element:  Read  Input  for  Systems 

Symbolic  Name:  RDSYS 

Arguments  in  Call  Statement:  None 

Subroutines  which  call  RDSYS:  Main  Program 

Subroutines  called  by  RDSYS:  None 

This  subroutine  provides  for  the  card  input  of  12  parameters 
which  define  each  weapon  system  allowed  in  the  game.  In  addition, 
it  converts  the  input  units  for  six  of  these  parameters  to  units 
needed  in  the  program  and  also  calculates  1/4  and  1/2  ammunition 
basic  loads  from  the  basic  load  (which  is  input).  See  card  sets  4 
and  5 , Table  3.2. 
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in 


Subroutine  RDSYS 


C 


CALL 


I 


S Read  the 
number  of  systems 
in  the  force: 
(NSYS) 


Read 

for  this  system: 

NAME 

MEANING 

INPUT  UNITS 

SYSID 

System  ID  Number  (e.g.,  1200.1) 

FRWM 

Fraction  of  Unit  in  Place  During  Move 

decimal 

TPFU 

Tubes/Launchers  per  Fire  Unit 

tubes/unit 

*SROF 

Max  Rate  of  Fire  Vs  Static  Tgt 

rd/min/tube 

*DROF 

Max  Rate  of  Fire  Vs  Moving  Tgt 

rd/min/tube 

*TBM 

Time  Between  Missions 

minutes 

BLD 

Basic  Load  of  Ammo  per  Fire  Unit 

rd/unit 

RSPY 

Resupply  Rate  for  Ammo 

rd/unit/hr 

*SNMX 

Max  Rd  Allowed  per  Msn  Vs  Static  Tgt 

rd/tube/msn 

*DNMX 

Max  Rd  Allowed  per  Msn  Vs  Moving  Tgt 

rd/tube/msn 

*HNMX 

Max  Rd  per  Hour  Vs  all  Tgts 

rd/tube/hr 

STYP 

System  Type  (1.  = Cannon;  2.  = Missile) 

*Units  Converted  Below 


Calculate  for  this  system: 

HBLD 

1/2  Basic  Load 

rd/unit 

QBLD 

1/4  Basic  Load 

rd/unit 

TBM 

Time  Between  Missions 

decimal  hrs 

SROF 

Max  Rate  of  Fire  Vs  Static  Tgt 

rd/hour/tube 

DROF 

Max  Rate  of  Fire  Vs  Moving  Tgt 

rd/hour/tube 

SNMX 

Max  Rd  Allowed  per  Msn  Vs  Static  Tgt 

rd/unit /msn 

DNMX 

Max  Rd  Allowed  per  Msn  Vs  Moving  Tgt 

rd/unit/msn 

HNMX 

Max  Rd  per  Hour  Vs  all  Tgts 

rd/unit/hr 

z£lT 

^ RETURN  J 
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Program  Element:  Read  Input  for  Rounds 

Symbolic  Name:  RDRND 

Arguments  in  Call  Statement:  None 

Subroutines  which  call  RDRND:  Main  Program 

Subroutines  called  by  RDRND:  HEINP,  ACMINP 

This  subroutine  provides  for  the  card  input  of  parameters  which 
define  each  round  of  ammunition  allowed  in  the  game.  The  number  of 
parameters  to  be  input  depends  on  the  type  of  round:  Improved 

Conventional  Munitions  (ICM)  or  High  Explosive  (HE).  RDRND  calcu- 
lates 5 parameters  used  in  the  program  and  calls  either  ACMINP  (for 
ICM)  or  HEINP  (for  HE)  subroutine  to  complete  the  read-in  of  round 

data.  As  a final  step  for  each  round,  RDRND  converts  input  ranges 

2 

in  kilometers  to  ranges -squared  (KM  ) for  use  in  the  program.  See 
card  sets  6 and  7,  Table  3.3. 
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Read  data  for  next  round. 


Subroutine  RDRND 


( cau  > 


Read  the 

number  of  rounds 

in  the  force. 

(NRDS) 

r 


READ  FOR  THIS  ROUND: 


turn 

MEANING 

INPUT  UNITS 

RNDID 

Round  ID  Number  (e.g.,  1203.1) 

WGT 

Crated  Weight  per  Round 

metric  tons/rd 

CST 

Cost  per  Round 

kilo$/rd 

RMX 

Max  Range  of  Round 

km 

REL 

Round  In-flight  Reliability 

decimal 

DEP 

% Recoverable  Misfires 

decimal 

RTP 

Round  Type  (1.  = ICM;  2.  = HE) 

-- 

WARN 

Round  Signature  (Warning) 

seconds 

. . i ....  ... ..... 

CALCULATE  FOR  THIS  ROUND: 

WGTI 

1/Weight 

rd/metric  ton 

CSTI 

1/Cost 

rd/kilo$ 

R2MX 

(Max  Range)2 

km2 

RELI 

1/Reliability 

decimal 

DEPI 

1/Recoverable  Misfires 

decimal 

j 

READ  FOR  THIS  ROUND: 

*RNG(I , J) 

10  Range  Increments  for  Round 

km 

CPR(I,J) 

Rd-Rd  CPE  for  each  Range  Increment 

meters 

CPS(I,J) 

System  CPE  for  each  Range  Increment 

meters 

*Units  Converted  Below 


Read  ICM 
data;  define 


HEINP 


Read  HE  data, 
define  RE's. 


T^TT 


L_ 


Convert  the  10 
Range  increments 
(RNG)  to  km2 


RETURN 


D 


B-l  7 


Program  Element:  Read  ICM  Input 

Symbolic  Name:  ACMINP 

Argument  in  Call  Statement:  (I)  - Identifies  the  position  (in  the  list 

of  rounds)  of  the  round  being  input. 

Subroutines  which  call  ACMINP:  RDRND 

Subroutines  called  by  ACMINP:  None 

This  subroutine  provides  for  the  card  input  of  15  parameters  which 
define  each  Improved  Conventional  Munition  (ICM)  allowed  in  the  game. 
Based  on  these  inputs,  the  subroutine  then  calculates  radii  of  effects 
and  1/area  of  effects  at  input  range  increments,  and  then  calculates 
the  Probability  of  Kill  (P^,)  at  each  range  increment  for  each  of  five 
target  postures  in  both  the  open  and  wooded  environments,  i.e.  10  P^'s 
at  each  range  increment . 
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i 


Subroutine  ACMINP 
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Program  Element:  Read  HE  Input 

Symbolic  Name:  HEINP 

Argument  in  Call  Statement:  (I)  - Identifies  the  position  (in  the 

list  of  rounds)  of  the  round  being  input. 

Subroutines  which  call  HEINP:  RDRND 

Subroutines  called  by  HEINP:  None 

This  subroutine  provides  for  the  card  input  of  100  lethal  areas 
(for  5 postures  in  both  open  and  wooded  environments  at  each  of  10 
range  increments)  for  each  High  Explosive  (HE)  round  allowed  in  the 
game.  Based  on  these  inputs,  the  subroutine  then  calculates  the 
radius  of  effects  associated  with  each  lethal  area  input. 
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Calculate  10  P's  for  next  range  increment. 


Subroutine  HEINP 


^ CALL  ^ 


(al) 


Read  in  100  values  of  Lethal  Area 
for  this  HE  munition  in  the  following  order: 

For  the  1st  posture  (standing  in  open)  read  in 
the  Lethal  Area  for  each  of  the  10  range 
increments  defined  in  RDRND  subroutine. 

Repeat  this  for  2nd  posture  (prone  in  open)  and 
than  for  the  remaining  3 open  and 
5 wooded  postures. 


Define  for  this  HE  munition  at 

this  range  increment 

PK  = .3.  (NOTE:  In  this 

subroutine  this  value  is  called 

RE.  It  is  converted  to 

(SOP,  POP,...  AWP)  in  INTtRP  subroutine.) 


Calculate  for  this  range  increment  the 
round  Radius  of  Effects  for  each  of  the 
5 tgt  postures  in  open  and  then  in  woods: 

RE  = /-Al/tt  ln(l.-PK) 

(NOTE:  In  this  subroutine  these  values  are 
called  SOP,  POP,... AWP.  They  are 
converted  to  RE  in  INTERP  subroutine.) 


NOTE:  For  HE: 

P^  = .3  for  all  postures 

and  ranges. 

A^  and  RE  are  functions  of 
both  range  and  posture. 
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Program  Element:  Read  Input  for  Fire  Units 

Symbolic  Name:  RDFU 

Arguments  in  Call  Statement:  None 

Subroutines  which  call  RDFU:  Main  Program 

Subroutines  called  by  RDFU:  None 

This  subroutine  provides  for  the  card  input  of  fire  unit  para- 
meters for  each  fire  unit  allowed  in  the  game,  to  include  the  fire 
unit's  weapon  system  and  times  and  locations  of  each  site  occupied 
by  the  fire  unit  during  the  game. 

Then  for  each  weapon  system  in  the  game  this  subroutine  reads 
which  of  the  input  rounds  is  allowed  for  use  by  each  system. 

Finally,  for  each  posture  mix  defined  in  PRELIM,  the  rounds 
allowed  against  each  posture  mix  are  read  in. 

See  card  sets  8,  9,  10  and  11,  Table  3.4. 
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Subroutine  RDFU 


^ CALL 


^XKead  the  number 

) 

of  Fire  Units  in 

n i it r*< i 

r 

force  f (NFU) 

Print  NFU  | 

r 


Read  for  I*h  Fire  Unit: 


x 

o 

e 

u 

<8 

<4 

u 

•3 

•o 

c4 

£ 


L_ 


Name 

Meaning 

Input  units 

NSITE 

No.  of  sites  this  unit  occupies  during  game. 

Integer 

FSID 

Fire  unit  ID  number  (e.g.  1200.1) 

Real 

For  each  site  for  this  unit  READ: 

TA 

Fire  unit  arrival  time  at  the  site. 

hr-min* 

TD 

Fire  unit  departure  time  from  the  site. 

hr-rain* 

* (These  times  are  converted  to  decimal  hours) 

XS 

Easting  for  this  site. 

km 

YS 

Northing  for  this  site. 

km 

«i 

V 

3 

§ 


e 

0> 

♦J 

trt 

X 

V) 


4-> 

. * 

CD  I <D 


Read  for  I^n  System  in  Game:  SYSRD  (I,  J) 


C4.  U 

t 


SYSRD  (1,1)*  System  ID  number 

SYSRD  (I,  2)  thru  SYSRD  (I,  10)  = ID  number  of  each  round  allowed  for 
I**1  system. 


8 

3 

4-> 
tO  I 

O 

cu 


X 

V 

c 

u 

o 

tM 

c4 

<4 

"0 


r 


iL 


Read  for  each  of  12  allowable  tgt  postures: 


NP  - Posture  number  (0  thru  11) 

NRO  - No.  rounds  allowed  vs  this  posture  in  open. 
NRW  - No.  rounds  allowed  vs  this  posture  in  woods. 
ORVP  - Rd  ID  numbers  of  the  NRO  rds  allowed  vs  open. 
WRVP  - Rd  ID  numbers  of  the  NRW  rds  allowed  vs  woods. 


RETURN 


j 
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Program  Element:  Read  Input  for  Mix  of  Systems,  Rounds  and  Fire  Units 

Symbolic  Name:  RDMIX 

Arguments  in  Call  Statement:  None 

Subroutines  which  call  RDMIX:  Main  Program 

Subroutines  called  by  RDMIX:  None 

This  subroutine  provides  for  the  card  input  of  a given  system- 
round-fire  unit  mix  for  each  cycle  thru  the  game.  The  inputs  include 
an  alpha-numeric  Mix  Code  and  a key  to  define  each  system,  round,  and 
fire  unit  (from  among  all  those  input)  which  are  allowed  for  a specific 
computer  cycle  through  the  target  list.  In  addition,  a criteria  key 
is  also  read  in  to  define  whether  least  cost  or  least  weight  of 
ammunition  is  to  be  minimized  in  the  selection  of  a "best  round"  to 
be  fired  against  each  target.  See  card  sets  12  through  16,  Table  3.5. 

This  subroutine  completes  the  card  input  cycle,  and  return  to  the 
main  program  allows  the  computer  game  to  begin. 
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Subroutine  RDMIX 


^ CALL 


Read  the 
Game  Mix  Code 
(MIXID) 


Read  for  each  system,  round,  and  fire  unit 
a key  to  indicate  which  are  allowed  in  this 
mix: 


KS1G  - System  Key:  0 = Out  1 ==  In  Game 
KRIG  - Round  Key:  0 - Out  1 * In  Game 


KFIG  - Fire  Unit  0 * Out  1 » DS  Level 

Key:  2 = GS  Level  3 - Corps  Level 


Program  Element:  Initialize  Time,  Counters  and  Arrays 

Symbolic  Name:  TZERO 

Arguments  in  Call  Statement:  None 

Subroutines  which  call  TZERO:  Main  Program 

Subroutines  Called  by  TZERO:  None 

This  subroutine  zeros  various  counters,  lists,  and  arrays  at  the 
start  of  each  computer  cycle  through  the  target  list.  It  also  sets 
the  game  clock  and  fire  unit  clocks  to  the  input  game-start-time. 
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Subroutine  TZERO 


Set  following  equal  to  zero  to  start  the  game: 

KOUNT 

No.  of  tgts  in  TN  array  at  any  time. 

MATCH 

Position  of  a given  tgt  on  TN  array. 

MFEAT 

No.  of  tgts  on  Defeated  List  at  any  time. 

LOSS 

No.  of  tgts  on  Lost  Tgt  list  at  any  time  (tgts  attacked  but  not  defeated). 

ITC 

No.  of  "OTHER’'  missions  acquired  till  now. 

TN  Array 

Priority  listing  of  tgts  (w/tgt  data)  for  a given  time  period. 

TLOST  Array 

Listing  of  tgt  ID  and  data  for  tgts  attacked  but  not  defeated. 

TDFT  List 

Listing  of  defeated  tgt  ID's. 

FT  Array 

Lists  ammo  expended  by  ea  unit  for  the  current  $ last  5 quarter  hours. 

S Array 

Sums  ammo  COST  § WGT,  No.  of  Pers,  Tanks  5 APC's  defeated  by  ea  system. 

RDCNT  Array 

Sums  no.  of  rds  fired  at  ea  GUN-TGT  range  from  1 to  30  (or  more)  KM. 

AMWS 

Sums  Military  Worth  Points  scored  in  game. 

NACQ 

Sums  no.  of  tgt  acquisitions  in  game. 

SPERS 

Sums  no.  of  Personnel  acquired  in  game. 

STANK 

Sums  no.  of  tanks  acquired  in  game. 

SAPC 

Sums  no.  of  APC's  acquired  in  game. 

NQ 

Suras  no.  of  tgts/missions  not  undertaken  for  any  reason  (queued) . 

S MW 

Sums  military  worth  of  damaged  targets. 

NTGT 

Sums  individual  tgts  acquired  in  game  (counts  only  1st  acquisition). 

NOMF 

Sums  no.  of  "OTHER"  missions  fired,  i.e.  defeated. 

NQLP 

Sums  tgts  "queued"  (not  fired)  due  to  low  priority. 

NRPD 

Sums  reacquisitions  of  previously  defeated  tgts. 

NRW2 

Sums  number  of  "combined"  tgts  (w/i  200  meters  of  each  other) . 

NQOM 

Sums  OTHER  missions  tried  but  can't  do,  i.e,  queued. 

NQD 

Sums  tgts  queued  when  tgt  departs  before  it  can  be  fired. 

NFM 

Sums  all  fire  missions/targets  attacked  each  time  attacked. 

NFMD 

Sums  all  OTHER  missions  & regular  tgts  (fire  missions)  which  are  defeated. 

NOM 

Sums  OTHER  type  missions  in  game. 

i 


Set  T = TZRO  (Sets  game  clock  = game  start  time.) 

Set  TUBFU  List  = T (Sets  clock  for  each  unit  = 
game  start  time.) 
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Program  Element:  Read  Input  from  Target  Tape 

Symbolic  Name:  RTAPE 

Arguments  in  Call  Statement:  None 

Subroutines  which  call  RTAPE:  Main  Program 

Subroutines  called  by  RTAPE:  None 

This  subroutine  reads  from  tape  33  target  parameters  for  each 
target  on  the  target  tape.  If  the  target  location  error  is  greater 
than  three  times  its  estimated  radius,  or  if  the  frequency  of  this 
target  is  zero  for  the  defined  game  intensity  the  target  is  disre- 
garded. 

If  the  target  is  a special  ("other")  type  mission  (Smoke, 
Illumination  or  H$I),  an  additional  8 parameters  are  read  from  the 
tape  to  define  the  precalculated  number  of  rounds  required  by  each 
weapon  system  to  accomplish  the  mission.  See  Target  Input  Variables, 
Table  3.6. 
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Subroutine  RTAPE 


READ  FROM 

TAPE,  TGT  DATA: 

VARIABLE 

MEANING 

UNITS 

TNI  (1) 

Tgt  ID  Number  (e.g.,  9016.0) 

real 

(2) 

Acquisition  No.  (0.,1.,2.,  or  3.) 

real 

(3) 

Frequency  of  Tgt  at  BASE  Intensity 

1. 

(4) 

Estimated  Tgt  Posture  Mix 

0 thru  11 

(5) 

Estimated  Fraction  of  Tgt  in  Woods 

real 

(6) 

Estimated  Fraction  of  Tgt  in  Open 

real 

(7) 

Estimated  Tgt  Radius 

meters 

(8) 

Estimated  Arrival  Time  of  Tgt 

decimal  hours 

(9) 

Estimated  Departure  Time  of  Tgt 

decimal  hours 

(10) 

Tgt  Location  Error 

meters 

(ID 

Estimated  Easting  of  Tgt 

km 

(12) 

Estimated  Northing  of  Tgt 

km 

(13) 

Tgt  Distance  from  FEBA 

km 

(14) 

Est. Military  Worth  of  Tgt 

0 thru  21 

(15) 

Tgt  Acquisition  Code 

1,2,  or  3 

(16) 

Target  Type  Code  No. 

1 thru  70 

(17) 

Threshold  "A"  Attack  Level 

.5 

(18) 

Defeat  Level 

.5 

(19) 

Actual  Tgt  Posture  Mix 

0 thru  11 

(20) 

Actual  Fraction  of  Tgt  in  Woods 

real 

(21) 

Actual  Fraction  of  Tgt  in  Open 

real 

(22) 

Actual  Tgt  Radius 

meters 

(23) 

Actual  Arrival  Time  of  Tgt 

decimal  hours 

(24) 

Actual  Departure  Time  of  Tgt 

decimal  hours 

(25) 

No.  Personnel  in  Tgt 

personnel 

(26) 

No.  Tanks  in  Tgt 

tanks 

(27) 

No.  APC’s  in  Tgt 

APC 

(28) 

Initial  Frac.  of  Pers.  Survivors 

real 

(29) 

Initial  Frac.  of  Tank  Survivors 

real 

(30) 

Initial  Frac.  of  APC  Survivors 

real 

(31) 

Frequency  of  Tgt  at  LOW  Intensity 

1,2,3... 

(32) 

Frequency  of  Tgt  at  MID  Intensity 

1,2,3... 

(33) 

Frequency  of  Tgt  at  HIGH  Intensity 

1,2,3... 

5 


B-31 


B-29 


The  following  page  is  blank. 


Subroutine  RTAPE  (cont) 
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Program  Element:  Remove  Target  from  Target  List 

Symbolic  Name:  REMOVE 

Arguments  in  Call  Statement:  (K)  - Identifies  the  position  on  target 

list  of  target  to  be  removed. 

Subroutines  which  call  REMOVE:  Main  Program,  COMPAR 

Subroutines  called  by  REMOVE:  None 

This  subroutine  removes  a target  from  the  priority  ordered  list  of 
targets  and  moves  all  other  targets  beneath  the  removed  target  up  the 
list  by  one  position. 

For  program  control,  the  subroutine  also  sets  the  target  ID  equal 
to  zero  at  the  position  following  the  last  remaining  target  on  the  list 
and  reduces  the  target  list  counter  by  one. 
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Sub  rout  i nc  KliMOVI: 
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Program  Element:  Compare  Targets  by  Priority 

Symbolic  Name:  COMPAR 

Arguments  in  Call  Statement:  None 

Subroutines  which  call  COMPAR:  Main  Program 

Subroutines  called  by  COMPAR:  REMOVE 

This  subroutine  places  a given  target  in  its  proper  position  on 
the  target  list  according  to  its  priority  (Military  Worth)  and  its 
estimated  departure  time. 

If  the  target  had  been  previously  acquired,  a check  is  made  to 
see  if  it  was  attacked  and/or  defeated.  If  it  had  been  defeated 
(determined  by  checking  against  the  defeated  target  list)  it  is  not 
added  to  the  target  list,  but  is  only  counted  as  a reacquisition  of 
a previously  defeated  target.  If  it  had  been  attacked-but  not  defeated- 
(deterrained  by  checking  against  the  list  of  attacked  targets)  the  damage 
previously  inflicted  is  charged  against  the  new  acquisition  and  the 
old  acquisition  is  removed  from  the  attacked  target  list. 

A check  is  then  made  to  determine  if  previous  acquisitions  of  this 
target  are  still  on  the  target  list  (i.e.  not  yet  attacked).  If  so, 
the  damages  for  the  last  previous  acquisition  are  assigned  to  the  current 
acquisitions  and  each  acquisition  remains  on  the  target  list.  However, 
if  the  current  target  is  located  within  200  meters  of  any  of  the  pre- 
vious acquisitions  still  on  the  list,  that  "old"  acquisition  is  removed 
from  the  target  list  and  the  sum  of  "combined  targets"  is  increased  by 
one. 
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Subroutine  COMPAR 


V.  acquired 

Delete  this  tgt  ID 
from  defeated 
tgt  list  (TDFT) 

6 

Increase  sum  of 
reacquisitions 
of  previously 
defeated  tgts. 

(NRPD) 

C 


RETURN 


) 


Set  fractional 

. Y 17 

Survivors 

= those 

specified  for  tgt 
already  on  list. 

0 
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The  position  of  the  current  target  on  the  target  list  is  then 
determined.  The  higher  a target's  military  worth,  the  higher  will 
he  its  position  on  the  list.  For  targets  of  equal  military  worth, 
the  one  departing  soonest  will  be  given  higher  priority.  Should  both 
military  worth  and  departure  time  be  equal,  the  earlier  arriving 
target  receives  higher  priority. 

Finally,  the  target  (and  its  data)  are  placed  on  the  target  list 
in  its  assigned  position.  If  the  addition  of  the  target  causes  the 
list  capacity  to  be  exceeded,  the  lowest  priority  target  is  dropped 
and  the  appropriate  counters  are  increased. 
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Compare  this  tgt  with  next  tgt  on  list. 


SUBROUTINE  COMPAR  (cont) 


The  following  page  is  blank. 

B-37 


SUBROUTINE  COMPAR  (cont) 
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Program  Element:  Direct  Support  Echelon 

Symbolic  Name:  DIRSUP 

Arguments  in  Call  Statement:  (IT)  - Identifies  position  on  the  target 

list  of  the  target  which  is  being  considered. 

Subroutines  which  call  DIRSUP:  Main  Program 

Subroutines  Called  by  DIRSUP:  AMASS,  INTERP,  EFFECT,  DIVISN 

This  subroutine  provides  the  initial  attempt  to  fire  upon  targets 
acquired  at  the  direct  support  (DS)  echelon.  After  keys  are  set  to 
indicate  DS  level,  subroutine  AMASS  is  called  to  provide  a list  of  all 
available  DS  units,  including  the  most  effective  round,  number  of  rounds 
available  and  number  of  rounds  required  by  each  available  DS  unit  to 
reach  the  specified  attack  level.  If  there  are  no  available  DS  units, 
subroutine  DIVISN  is  called,  to  attempt  attack  with  GS  echelon  units. 

If  DS  units  are  available,  the  unit  closest  to  the  target  is 
identified  and  checked  to  determine  if  its  required  number  of  rounds 
is  available  and  if  those  rounds  are  within  the  overall  ammunition 
weight  constraint  (30  ton  limit  for  Category  I targets,  15  ton  limit 
for  Category  II  and  III  targets).  If  this  closest  unit  does  not  have 
sufficient  rounds  available  or  if  it  cannot  reach  the  specified  attack 
level  within  the  weight  constraint,  the  DS  echelon  is  deemed  unable 
to  attack  the  target  alone,  so  DIVISN  subroutine  is  called  to  attempt 
GS  level  attack. 

Should  the  closest  DS  unit  have  sufficient  rounds  and  be  within 
the  target  weight  constraint,  the  target  is  considered  to  be  attacked. 
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Subroutine  DIRSUP 


C 


CALL 


3 


AMASS 

List  available  DS 
units  with  "best" 
rd  for  each 
5 this  tgt. 
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A check  of  actual  target  data  (posture,  environment  and  radius)  is  then 


made.  If  actual  data  do  not  agree  with  estimated  target  data,  sub- 
routines INTERP  and  EFFECT  are  called  to  determine  the  effects  of 
the  previously  determined  required  number  of  rounds  against  the  actual 
target  data.  (If  actual  target  data  equal  estimated  data  then  the 
effects  which  were  calculated  when  AMASS  was  called  at  the  beginning 
of  this  DIRSUP  subroutine  are  still  valid).  This  subroutine  then  cre- 
dits the  rounds  fired,  damage  accomplished  and  time  used  by  the  fire 
unit  to  the  appropriate  counters  as  explained  below.* 

The  number  of  rounds  fired  are  credited  by  round  ID  number  and 
gun- target  range  (to  nearest  kilometer)  in  a round-counter  matrix.  See 
subroutine  OUTPUT  for  the  format  of  this  matrix.  The  "Time  used  by 
fire-unit" clock  is  then  increased  to  account  for  the  time  used  by  the 
fire  unit  to  fire  the  required  number  of  rounds  against  the  target. 
Weapon  system  counters  are  then  increased  for  the  specific  weapon 
system  which  defines  the  fire  unit.  The  weight  and  cost  of  ammunition 
fired  and  the  number  of  personnel,  tanks  and  APC's  defeated  by  the 
fire  unit  are  credited  to  the  appropriate  weapon  system.  If  actual 
target  departure  time  indicates  that  the  target  has  departed  its  loca- 
tion prior  to  the  time  of  engagement,  then  no  damage  is  credited  to 
this  mission,  although  the  rounds  fired  and  time  used  are  still 
charged  to  the  fire  unit. 

*NOTE:  These  processes  are  repeated  in  other  subroutines  where  fire 

units  are  credited  with  the  accomplishment  of  a mission.  The  process 
is  detailed  only  for  this  subroutine  and  reference  is  made  to  this 
explanation  where  appropriate  in  other  subroutines:  DIVISN,  SHMUVL, 

SHONVL  & CORP. 
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Subroutine  DIRSUP  (cont) 
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The  following  page  is  blank. 


After  calculating  the  remaining  personnel,  tank  and  APC  survi- 
vors in  the  target  after  firing  this  fire  mission,  a check  is  made  to 
determine  if  the  total  damage  inflicted  on  the  target  at  this  time 
meets  the  defeat  level  (50%  damage).  If  so,  the  target  is  added 
to  the  defeated  target  list  (TDFT)  and  the  military  worth  of  the 
target  is  added  to  the  counter  of  military  worth  points  scored.  If 
the  target  was  not  defeated  (<50%  damage  inflicted)  the  target  is 
added  to  the  "attacketl-but-not -defeated"  (TLOST)  list.  (This  list 
contains  the  target  ID  number  and  the  fractional  personnel,  tank  and 
APC  survivors  remaining  in  the  target.  Should  this  target  be  reacquired 
later  in  the  game,  these  survivor  values  will  then  be  assigned  to  the 
target,  so  as  to  account  for  the  previous  damage  inflicted).  A pro- 
portionate amount  of  the  targets'  Military  Worth  is  then  added  to 
the  counter  of  Military  Worth  points  scored. 

The  final  step  when  a target  is  attacked,  whether  defeated  or 
not,  is  to  set  a key  to  indicate  that  it  has  been  attacked  and  control 
is  returned  to  the  main  program. 
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Program  Element:  Interpolation 

Symbolic  Name:  INTERP 

Arguments  in  Call  Statement: 

(IR)  - Identifies  which  of  the  input  rounds  is  being  considered. 
(IA)  - Identifies  which  fire  unit  on  "A"  array  is  being  considered. 
Subroutines  which  call  INTERP:  DIRSUP,  AMASS,  DIVISN,  SHMUVL,  SHONVL, 

CORP 

Subroutines  called  by  INTERP:  None 

This  subroutine  provides  interpolation  of  the  input  data  for  the 
various  rounds  (as  input  in  RDRND,  ACMINP  and  HEINP  subroutines) . It 
determines  the  probability  of  kill  (P^)  and  Radius  of  Effects  (Rj.)  for 
a given  round  at  a specific  gun-target  range  against  the  five  postures 
(personnel  standing,  prone  and  crouching  and  tanks  and  APC's)  in  both 
open  and  wooded  environments. 

NOTE:  If  the  round  under  consideration  is  of  the  High  Explosive  (HE) 

type,  this  subroutine  also  assigns  the  Pj,'s  and  R^'s  to  the  proper 
variable  names.  This  corrects  the  "dummy"  substitutions  made  in 
subroutine  HEINP. 
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Subroutine  INTERP 


B-47 


Program  Element:  Mass  Fire  Units 

Symbolic  Name:  AMASS 

Arguments  in  Call  Statement:  (IT)  - Identifies  position  on  target 

list  of  the  target  which  is  being  considered. 

Subroutines  which  call  AMASS:  DIRSUP,  DIVISN,  CORP 

Subroutines  called  by  AMASS:  INTERP,  EFFECT 

This  subroutine  examines  all  fire  units  at  a given  echelon  and 
builds  an  array  ("A”  array)  of  units  capable  of  contributing  fire 
against  the  target  under  consideration. 

The  subroutine  searches  through  the  list  of  fire  units  in  the 
mix,  immediately  rejecting  those  units  which  are  not  at  the  echelon 
under  consideration  and  those  which  are  busy  (whose  clocks  indicate 
that  they  are  already  committed  beyond  the  current  15-minute  game 
interval).  (An  error  print  is  made  if  a unit  is  in  the  game  whose 
weapon  system  type  is  not  allowed  in  the  mix  for  the  game  being  run). 

If  a fire  unit  passes  these  initial  checks,  the  counter  of  avail- 
able fire  units  (NA)  is  increased  by  one  and  the  subroutine  begins  to 
fill  in  the  27-element  list  of  the  "A"  array  for  the  fire  unit.  (See 
a compilation  of  this  array  on  page  B-54) . 

The  initial  elements  of  the  array  define  fire  unit  parameters 
such  as  weapon  system  type,  time  already  used,  maximum  allowable  rate 
of  fire,  unit  location,  unit  echelon  and  fire  unit-to-target  range. 

The  maximum  number  of  rounds  the  unit  is  allowed  to  fire  is  also 
calculated  based  upon  the  target's  military  worth  and  various  unit 
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Examine  next  unit  in  game 


Subroutine  AMASS 


r n 

Increase  counter  of  units  avail- 

able 

(NA)  $ define  for  this  unit: 

A(27) 

= Placement  No. on  unit  list. 

A(l) 

= Placement  No. on  system 

list. 

A(2) 

a Time  used  by  unit  til  now. 

Z 

a Rds  now  on  hand. 

A(4)  = Max  Rds  capable  of  firing 
at  this  tgt  equals  least  of: 


(1)  Max  rds  unit  allowed  to  fire 
at  this  type  tgt  (static/moving) 
x%  of  unit  in  place. 

(2)  Max  hourly  ROF  - Rds  fired 
in  last  60  mins. 

(3)  1/2  Basic  Load  ♦ No  Rds 
resupplied  til  now  - Rd  fired 
til  now. 


Print  error  ( 

statement.  | 

C stop  ) 


A(4)  a Max  Rds  capable  of  firing 
at  this  tgt  equals  least  of: 


(1)  Max  rds  unit  allowed  to  fire 
at  this  type  tgt  x%  of  unit  in 
place. 

(2)  Max  hourly  ROF  - Rds  fired 
in  last  60  mins. 

(3)  1/2  Basic  Load  ♦ 1 days  re- 
supply - Rd  fired  til  now. 

(4)  3/4  Basic  Load  ♦ No.  Rds 
resupplied  til  now  - rds  fired 
til  now. 


Define  for  this  unit: 


A(3)  = Max  ROF  (Rd/Hr/Tube)  vs  this  tgt. 
A(5)  = Frac.  of  unit  in  place. 

A(6)  = Unit  Easting  ) Location  (KM) 

A(7)  = Unit  Northing] 

Al8j  = Unit  Echelon 

A (9)  = (Gun-Tgt  Range)' 


(KM2) 


B 
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parameters.  If  the  unit  has  no  ammunition  on  hand,  it  is  deleted  from 
consideration  and  the  next  unit  in  the  game  is  considered. 

After  checking  to  insure  that  at  least  one  round  has  been  defined 
(in  RDFU)  for  use  by  this  unit,  all  the  rounds  so  defined  are  examined 
in  order  to  choose  a "best  round"  for  use  against  this  target.  (If 
no  rounds  are  so  defined,  an  error  print  results). 

As  each  round  is  considered,  initial  checks  are  made  to  insure 
that  a round's  maximum  range  is  within  gun- target  range  and  that  the 
round  is  allowed  against  the  particular  target  posture  mix.  Subrou- 
tines INTERP  and  EFFECT  are  then  called  to  determine  the  number  of 
those  rounds  needed  by  the  unit,  when  firing  alone,  to  reach  the 
specified  attack  level.  As  these  calculations  are  completed  for  each 
round,  total  required  ammunition  cost  or  weight  (depending  upon  the 
specified  allocation  constraint  defined  in  RDMIX)  is  compared  with 
other  rounds.  After  all  rounds  have  been  considered,  the  data  for 
the  "best  round"  (i.e.  least  cost  or  least  weight)  is  assigned  to 
the  A array,  and  the  next  fire  unit  is  examined. 

If  the  total  cost  or  weight  of  the  "best  round"  exceeds  a 
specified  key  value  (CTI  = 1,000,000),  the  fire  unit  is  deleted  from 
consideration.  After  all  units  at  the  specified  echelon  have  been 
examined  program  control  returns  to  the  calling  subroutine. 
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Examine  next  round  in  game. 
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ELEMENTS  OF  THE  "A"  ARRAY 
(Defined  for  each  capable  FU) 


Array 

Elements 

Definition 

Units 

Where 

Calculated 

Variable  Name 

A(1,NA) 

Which  of  NSYS  systems  describes  this  FU. 

Int. 

AMASS 

IS 

2 

Time  already  used  by  this  FU. 

Dec.  Hrs. 

AMASS 

TUBFU(JF) 

3 

Max.  rate-of-fire  vs  this  target. 

Rd/Hr /Tube 

AMASS 

DROF(IS)  or  SROF(IS) 

k 

No.  rounds  FU  now  capable  of  firing  at  tgt. 

Rds 

AMASS 

R 

5 

Fraction  of  FU  now  emplaced. 

Decimal 

AMASS 

FRWM(IS)  or  1 

6 

Current  FU  Easting 

KM 

AMASS 

XS(lNS , JF) 

T 

Current  FU  Northing 

KM 

AMASS 

YS(INS,JF) 

8 

m 

FU  Echelon 

Int . 

AMASS 

MORG 

9 

2 

(Unit-to-target  Range) 

KM2 

AMASS 

- 

10 

CPE  (Random)  at  this  unit-target  range 

Decimal 

INTERP 

CPER 

11 

CPE  ( Total  ) at  this  unit-target  range 

Decimal 

INTERP 

CPET 

12 

% of  target  survivors  from  1 volley  fire. 

Decimal 

EFFECT 

OVN 

13 

Rds.  needed  by  FU  alone  to  meet  attack  level 

Rds 

EFEECT 

- 

lU 

% of  standing  personnel  survivors  from  1 volley 

Decimal 

EFFECT 

- 

15 

% of  prone  personnel  survivors  from  1 volley 

Decimal 

EFFECT 

- 

16 

% of  crouching  personnel  survivors  from  1 volley 

Decimal 

EFFECT 

- 

IT 

% of  tank  survivors  from  1 volley 

Decimal 

EFFECT 

- 

18 

% of  APC  survivors  from  1 volley 

Decimal 

EFFECT 

- 

19 

% of  standing  personnel  survivors  from  all  req.  rds. 

Decimal 

EFFECT 

- 

20 

% of  prone  personnel  survivors  from  all  req.  rds. 

Decimal 

EFFECT 

- 

21 

% of  crouching  personnel  survivors  from  all  req.  rds. 

Decimal 

EFFECT 

- 

B-55 


ELEMENTS  OF  THE  "A"  ARRAY  (CONT'D) 
(Defined  for  each  capable  FU) 


Array  Where 


Elements 

Definition 

Units 

Calculated 

Variable  Name 

22 

% of  tank  survivors  from  all  req.  rds. 

Decimal 

EFFECT 

_ 

23 

% of  APC  survivors  from  all  req.  rds. 

Decimal 

EFFECT 

- 

2k 

Which  of  NRDS  is  "best  round1’ 

Int. 

AMASS 

IR 

25 

Total  Weight  or  Cost  of  all  required  rounds 

K$  or  Metric 
Tons 

AMASS 

CT 

26 

Weight  or  Cost  of  1 volley 

K$  or  Metric 
Tons 

AMASS 

CT1V 

27 

Which  of  the  NFU  units  is  being  considered. 

Int . 

AMASS 

JF 

Program  Element:  General  Support  Echelon 

Symbolic  Name:  DIVISN 

Arguments  in  Call  Statement:  (IT)  - Identifies  position  on  target 

list  of  the  target  which  is  being  considered. 

Subroutines  which  call  DIVISN:  Main  Program,  DIRSUP 

Subroutines  called  by  DIVISN:  AMASS,  ONEVOL,  MULVOL,  SHMUVL,  SHONVL, 

INTERP,  EFFECT,  CORP 

This  subroutine,  when  called  from  the  main  program,  provides 
the  initial  attempt  to  fire  upon  General  Support-acquired  targets; 
and,  when  called  from  DIRSUP,  it  attempts  to  fire  upon  DS  acquired 
targets  that  cannot  be  attacked  by  the  closest  DS  fire  unit  to  the 
target.  After  keys  are  set  to  indicate  the  GS  level,  subroutine 
AMASS  is  called  to  provide  a list  of  available  DIVISN(GS)  units. 
Assuming  GS  units  are  available,  subroutines  ONEVOL  and  MULVOL  are 
then  called  to  determine  how  many  GS  units  must  be  massed  to  reach 
the  attack  level  when  firing  only  one  volley  per  unit  (ONEVOL)  and 
then  when  firing  all  rounds  allowed  from  each  unit  (MULVOL). 

After  checking  to  insure  that  the  overall  ammunition  weight 
constraint  (15  or  30  tons,  depending  on  target  category)  is  not 
exceeded,  the  subroutine  then  calls  SHONVL  if  the  one-volley  method 
requires  less  cost  or  weight  of  ammo;  or  SHMUVL  is  called  if  the 
multi-volley  method  requires  less  cost  or  weight.  These  two  sub- 
routines consider  the  target  to  be  attacked  and  appropriate  counters 
are  increased  to  account  for  rounds  fired  and  time  used  (as  explained 
in  DIRSUP).  Control  is  then  returned  to  the  main  program. 
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Subroutine  DIVISN 
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Subroutine  DIVISN  (cont) 
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Add  effects  of  § account  for  next  GS  unit. 


Subroutine  DIVISN  (cont) 
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If  neither  the  one-volley  nor  multi-volley  methods  can  accumulate 
enough  rounds  at  the  GS  level  to  reach  the  specified  attack  level  (and 
provided  the  ammunition  overall  weight  constraint  has  not  been  exceeded) 
DS  units  are  then  examined  in  an  attempt  to  supplement  the  GS  units.  If 
GS  and  DS  units  together  can  reach  the  attack  level  with  either  one- 
volley  or  multi -volley  attack  (without  exceeding  the  weight  constraints) 
then  the  appropriate  subroutine  is  called  to  account  for  the  GS  and  DS 
combined  attack  and  appropriate  counters  are  increased  as  above. 

If  neither  attack  method  is  successful  for  GS  and  DS  units  combined 
(whether  for  insufficient  rounds  available  or  for  excessive  anmunition 
weight)  the  CORP  subroutine  is  called  to  attempt  CORPS  echelon  attack. 
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Subroutine  DIVISN  (cont) 


Fire  multi 
volley  from 
DS  $ GS 


Account  for  all  fire  units. 


Define  "best  rd" 
from  best  unit,  and 
define  actual  target 
posture 


INTERP 


Cal  for 

"best"  unit  & rd 
vs  actual  tgt. 
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EFFECT 


Cal  effects  for 
required  volleys 
from  best  unit  vs 
actual  tgt. 


JJL 
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Define  frac  surv 
before  required 
no.  of  rds 
are  fired. 

mz 

Cal  Pers  Survivors 
after  required  no. 

of  rds  fired. 

(=1  if  no  pers  in  tgt) 

18 


Cal  change,  if  any, in 
Frac  Surv  of  Pers, 
Tank  5 APC  after 
firing  the  required 
rounds 


r 


Yj 

DO  10 
IF3  = 
NBA 2 ,NEA2 

<L>  I 
h 


4-t 

O I 


T3 

V 


S' 


o 

U I 
u 
< 


Add  rds  fired  by  this 

GS  unit  to  total  of 
these  rds  fired  at 
this  range;  add  rds 
to  total  fired  by 
this  unit. 


Add  to  system  sums , 
the  wgt  5 cost  of 
rds;  and,  if  any,  the 
no.  of  Pers , Tanks 
and  APC  casualties. 


Msl 


Cannon 


Time  unit  next 
avail  = time  used 
until  now  + time 
to  fire  1 
volley. 

T 


l 6) 


Time  unit  next 
avail  = time  used 
until  now  + time 
to  fire  all 
required  volleys. 

T 


■^^B-63 
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Account  for  all  PS  units  committed  to  fire  all  available  rounds. 


Subroutine  DTVTSN  (cont) 
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Program  Element:  Shoot  Multi-Volley 

Symbolic  Name:  SHMUVL 

Arguments  in  Call  Statement: 

(IT)  - Identifies  position  on  target  list  of  target  being 
attacked. 

(JF)  - Identifies  first  (best)  Fire  Unit  to  fire  on  this  target. 
Subroutines  which  call  SHMUVL:  DIVISN,  CORP 

Subroutines  called  by  SHMUVL:  INTERP,  EFFECT 

This  subroutine  is  called  when  DIVISN  or  CORP  subroutines  have 
determined  that  a target  is  to  be  attacked  using  the  multi -volley 
method  of  attack.  As  explained  in  detail  in  the  DIRSUP  subroutine, 
an  accounting  is  made  of  the  damage  inflicted  on  the  target  by  each 
unit  firing;  also,  the  number  of  rounds  fired  and  time  used  by  each  of 
the  fire  units  at  a particular  echelon  are  credited  to  the  appropriate 
units.  (The  particular  echelon  treated  in  this  subroutine  is  the 
lowest  ranking  echelon  which  contributes  to  the  attack,  and  therefore, 
that  echelon  whose  last  unit  to  contribute  may  fire  only  a portion  of 
its  available  rounds.) 

This  SHMUVL  subroutine  also  increases  the  "defeated"  or  "lost" 
list  as  appropriate,  before  returning  control  to  the  calling  subrou- 
tine. 
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Subroutine  SHMUVl, 


^ CALL  ^ 

^ ♦ ' — 

Define  "Best  Round" 

\ actual  tgt  posture 


Has 

tgt  left  N 

^does  est  = actual 
.t  gt  dat 


Determine  Frac. 

Surv  from  all  previous 
missions  vs  this 
target . 


Sum  total  Pers  Frac 
Surv  from  3 Pers 
postures  after  firing 
all  required  rds . 


I 


Cal  change,  if  any, 
in  Frac  Surv  of  Pers, 
Tank  G APC  in  this 
tgt  after  firing  all 
required  rds . 


^-^-67 


INTORP 

EFFECT 

Cal  PK  5 Rc  for  best 

Cal  effects  of  best 

unit  firing  all 

unit  firing  all  rds 

needed  rds  to  reach 

needed  to  reach  att 

att  lvl  vs  tgt. 

lvl  vs  tgt . 
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Add  rds  fired  by  this 
unit  to  total  of  these 
rds  fired  at  this 
range;  and  add  no. 
of  rds  fired  to  total 
for  this  unit . 


L 


Time  unit  next 

Time  unit  next 

avail  = time  used 

avail  = time  used 

until  now  + time 

until  now  + time 

to  fire  1 

to  fire  all 

volley. 

required  volleys. 

r 

<3 
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Subroutine  SHMUVL  (cont) 
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Program  Element:  Shoot  One-Volley 

Symbolic  Name:  SHONVL 

Arguments  in  Call  Statement:  (IT)  - Identifies  position  on  target 

list  of  the  target  being  attacked. 

Subroutines  which  call  SHONVL:  DIVISN,  CORP 

Subroutines  called  by  SHONVL:  INTERP,  EFFECT 

This  subroutine  is  called  when  DIVISN  or  CORP  subroutines  have 
determined  that  a target  is  to  be  attacked  using  the  one-volley  method 
of  attack.  As  explained  in  detail  in  the  DIRSUP  subroutine,  an 
accounting  is  made  of  rounds  fired,  damage  inflicted,  and  time  used 
by  each  fire  unit  at  a particular  echelon.  (The  echelon  considered 
is  the  lowest  echelon  which  contributes  to  the  attack,  i.e.,  that 
echelon  whose  last  unit  to  contribute  may  fire  only  a portion  of  a 
volley. ) 

The  subroutine  also  increases  the  "defeated"  or  "lost"  list  as 
appropriate,  before  returning  control  to  the  calling  subroutine. 


B-68 


Add  in  1 or  next  unit  firing  1 full  volley. 


Subroutine  S1I0NVL 
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Subroutine  SHONVL  (cont) 
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Program  Element:  Attempt  One-Volley  Method 

Symbolic  Name:  ONEVOL 

Arguments  in  Call  Statement:  (IT)  - Identifies  position  on  target 

list  of  the  target  being  considered. 

Subroutines  which  call  ONEVOL:  DIVISN,  CORP 

Subroutines  called  by  ONEVOL:  None 

This  subroutine  is  called  by  DIVISN  and  CORP  subroutines  to 
determine  whether  one-volley  fired  from  each  available  fire  unit 
(at  specified  echelon (s))  can  reach  the  attack  level  needed  to 
engage  the  target. 

The  subroutine  begins  by  sorting  the  available  fire  units  (as 
determined  in  AMASS)  using  the  critical  factor  of  least  weight  or 
least  cost  (as  specified  in  RDMIX)  as  the  sorting  criteria.  Units 
are  then  added  in  the  sorted  order  until  enough  rounds  are  made 
available  to  reach  the  specified  attack  level.  When  the  attack  level 
is  finally  reached  or  exceeded  by  adding  in  the  next  available  unit, 
a calculation  is  made  to  determine  what  fraction  of  that  unit's  rounds 
are  required  to  just  meet  the  attack  level.  Should  the  addition  of 
a unit's  rounds  cause  the  overall  weight  constraint  to  be  exceeded, 
keys  are  set  to  indicate  that  the  one-volley  method  cannot  be  used 
against  this  target.  If  a unit  does  not  have  enough  rounds  on  hand 
to  fire  one  round  from  each  of  its  guns,  that  unit  is  not  permitted 
to  add  its  rounds  to  the  mission. 

At  the  completion  of  the  calculation,  program  control  is  returned 
to  the  calling  subroutine. 
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Add  next  unit's  effects. 


Subroutine  ONEVOL 


Q CALL 


Sort  this  echelon's 

Set  allowable  weight 

units  in  "A1'  array  by 

14 

constraints  based  on 

critical  criteria: 

tgt's  Mil  Worth. 

least  cost  or  weight. 

(15  or  30  Tons) 

DO  10 
JF  = 
NB,NE 


Identify  1st  or  next 
best  unit  w/its  best 
rd  vs  this  tgt.  Det. 
no.  of  tubes  now 
available  (for  1 
vnl 1 evl  . 


Add  the  effects  of  1 
volley  from  this 
unit.  Update  crit 
value,  total  frac  of 
surv,  5 wgt  of  rds. 


Calculate  % 

Calculate  % 

of  survivors 

of  survivors 

for  unwarned 

for  warned 

condition . 

condition . 

(SURV) . 

(SURV) . 

L 


Define:  Position 

no.  of  last  unit 
firing  a full  volley 
(I  PONE). 

Fraction  of  final 
unit  volley  needed 

(F). 

Total  weight  of  ammo 
needed  to  attack 
(WAIT) . 


Set  keys  to 

Calculate 

indicate  one 

total  critical 

volley  cannot 

factor  needed 

be  used. 

(QNCRT) 

C 


RETURN 


3 
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Program  Element:  Attempt  Multi-Volley  Method 

Symbolic  Name:  MULVOL 

Arguments  in  Call  Statement:  (IT)  - Identifies  position  on  target 

list  of  the  target  being  considered. 

Subroutines  which  call  MULVOL:  DIVISN,  CORP 

Subroutines  called  by  MULVOL:  None 

This  subroutine  is  called  by  DIVISN  and  CORP  subroutines  to 
determine  whether  multi-volleys  (all  allowable,  available  rounds) 
from  all  available  fire  units  (at  specified  echelon (s))  can  reach 
the  attack  level  needed  to  engage  the  target. 

Units  are  added  in  the  sorted  order  determined  in  ONEVOL,  with 
each  unit  adding  in  all  its  available  rounds  (as  determined  by  the 
fire  unit  and  ammunition  constraints  in  AMASS) . The  round  for  the 
first  ("best")  fire  unit  is  set  as  the  base  round,  against  which  the 
effects  of  other  unit’s  rounds  are  compared,  to  establish  their  equi- 
valent effects  in  terms  of  the  "best"  round. 

As  with  the  ONEVOL  subroutine,  units  are  added  until  sufficient 
"equivalent  best  rounds"  are  available  to  reach  the  specified  attack 
level.  The  fractional  part  of  the  last  unit's  rounds  needed  to  just 
meet  the  attack  level  is  also  calculated. 

If  the  overall  weight  constraint  is  exceeded  by  the  addition 
of  any  unit's  rounds,  keys  are  set  to  indicate  that  the  multi-volley 
method  cannot  be  used  against  this  target. 

At  the  completion  of  the  calculation,  control  is  returned  to  the 
calling  subroutine. 
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Add  next  unit's  effects 


Subroutine  MUI. VOL 
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Program  Element:  CORPS  Echelon 

Symbolic  Name:  CORP 

Arguments  in  Call  Statement:  (IT)  - Identifies  position  on  target 

list  of  the  target  being  considered. 

Subroutines  which  call  CORP:  Main  Program,  DIVISN 

Subroutines  called  by  CORP:  AMASS,  ONEVOL,  MULVOL,  SHMUVL,  SHONVL, 

INTERP,  EFFECT 

This  subroutine,  when  called  from  the  main  program,  provides  the 
initial  attempt  to  fire  upon  Corps-acquired  targets;  and,  when  called 
from  DIVISN,  it  attempts  to  fire  upon  DS-and  GS-acquired  targets  that 
cannot  be  attacked  at  the  DS  and  GS  levels. 

After  AMASS  is  called  to  provide  a list  of  available  Corps  units, 
one-volley  (ONEVOL)  and  multi-volley  (MULVOL)  methods  of  attack  are 
first  examined  for  Corps  echelon  units  only.  If  attack  levels  cannot 
be  reached  by  the  Corps  units,  then  available  GS  and  finally  DS  units 
are  added  in  turn.  Whenever  the  attack  level  can  be  met  within  the 
overall  weight  constraint  by  either  method  of  attack,  appropriate 
calculations  are  made  to  credit  the  damage  inflicted,  rounds  fired 
and  time  used  by  each  fire  unit  participating.  If  both  attack 
methods  meet  the  attack  level,  then  the  one  using  least  ammunition 
cost  or  weight,  depending  on  the  criteria,  is  chosen.  (Appropriate 
subroutines  (AMASS,  ONEVOL,  MULVOL,  SHMUVL  and  SHONVL)  are  called 
as  necessary  to  provide  the  needed  calculations.) 

If  a search  through  all  units  (Corps,  GS  and  DS)  cannot  mass 
sufficient  rounds,  or  if  the  overall  weight  constraint  is  exceeded  at 
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Subroutine  CORP  (cont) 


| Try  GS  units  added  to  Corps, | 

I 
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OWE VOL 

With  1 volley  from 
each  GS  unit  det. 
how  many  units  must 
be  added  to  Corps 
to  reach  att  lvl  vs 

laml 
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MULVOL 

Determine  no.  of  GS 
[units  § no.  of  equiv 
||best  rds  for  each  GS 
unit  which  must  be 
|added  to  Corps  units 

ap-  tvl. J 


Set  QN  = No.  rds 
best  GS  unit  needs 
to  reach  att.  lvl. 
vs  tgt  w/o  exceeding 

xuticai  matstiaii 


| No.  of  rds  needed  byj 
| best  Corps  Unit.  I 

j 


Set  0FLAG2  = 5. 
(NO  GS) 

Y | 

Hi 

AMASS 

Y 

any  DS  units 
^^wavai  1 ablej^^^ 

Nl 

List  available  DS 
units  $ best  rd 
for  each  vs  this 
target . 

Try  DS  units 
added  to  Corps 
and  GS 
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any  time,  the  target  cannot  be  attacked  at  the  specified  attack  level. 


If  the  initial  attempt  (at  Threshold  A-50%  attack  level)  fails, 
CORP  subroutine  then  calculates  a new  (lower)  attack  level  (Threshold 
B)  and  returns  program  control  to  the  main  program  to  immediately 
reattempt  attack  at  the  lower  level.  If  attempts  to  fire  at  this 
lower  attack  level  also  fail,  then  the  target  is  not  attacked  at 
this  time  and  it  will  remain  on  the  target  list  for  consideration 
during  subsequent  15-minute  game  intervals.  However,  for  Category  I 
and  II  targets  only,  and  only  if  the  target  will  depart  its  location 
during  the  current  15-minute  game  interval,  a third  attempt  to  fire 
is  made  after  the  first  two  attempts  fail.  A Threshold  C attack 
level  is  calculated  and  a final  attempt  at  attack  is  made. 

At  the  completion  of  CORP  subroutine,  control  returns  to  the 
main  program. 
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Add  effects  of  1st  or  next  unit  firing  1 full  volley. 


Subroutine  CORP  (cont) 
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Subroutine  CORP  (cont) 


ONI:  VOL 


With  1 volley  from 
each  DS  unit  det. 
how  many  must  be 
added  to  Corps  + GS 
to  reach  att  lvl  vs 


Try  DS  units  added 
to  Corps  & GS  units 


MULVOL 


Determine  those  DS 
units  5 no.  of 
equiv.  Hbest,f  rds 
for  each  needed  to 
reach  att.  lvl.  when 
added  to  (^orps  + GS. 
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(""" QN  remains  - No.*"1 
| of  rds  needed  by  | 
| ’’best"  Corps  or  I 
| GS  unit.  I 

1 T * 


Set  QN  = No.  rds 
"best”  DS  unit  needs 

to  reach  att  lvl  w/o 
exceeding  critical 
constraint . 


'all  units 
"multivol ley  reach 
attack  level  w/o 
exceeding  weighj 
constr? 


all  units 
firing  1 volley 
reach  attack  level  w /p 
exceeding  weighty 
constr? 


all  units* 
multi  volley  reach"' 
attack  level  w/o 
exceeding  weigh} 
constr? 


Determine  actual  tgt 
posture,  environment 
& 


YJ 

H 

^N 

Define  Frac.  Surv. 
of  Pers,  Tanks 
and  APC . 

SHMUVL 

Attack  tgt  w/DS 
units  firing 
multivolley. 
Account  for  »11  tgt 
effects,  but  only 
DS  rds . 

Y 

J B-65 

Sum  3 Pers  posture 

survivors  from  all 
vol  leys . 

(=  1.  if  Mat  Tgt) 


B-83 


1 Shoot  GS  ♦ DS  * 

S’l 

Shoot  Corps  Jr"  | 

1 one  volley 

+ GS  + DS 

B-81 

one  volley  B-83 

Account  for 
Corps  5 GS  units 
multivolley 
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Subroutine  CORp  (cont) 


B-83 


The  following  page  is  blank. 


Subroutine  CORP  (cont) 


s~\  p 

v--E 


Shoot  Corps  and 
multi  volley 


| SI1MUVL 

Sum  the  3 Pers 

I Attack  w/GS  un i ts 

1 fi  ri  ng  mulvol . 

posture  survivors 

1 Account  for  all 

from  all  volleys. 

j tgt  effects,  but 

(=  1.  if  Mat  Tgt) 

j on  1 y GS  rds . 
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E 

O 

& 

v> 

T3 

C. 


U 

o 


o 

o 

u 

< 


Add  rds  fired  by  this 
Corps  unit  to  total 
fired  at  this  range; 
and  add  to  total  rds 
fired  by  this  unit. 


Add  to  system  sums 
tho  wgt  G cost  of 
rds  and  if  any,  the 

no.  of  Pers , Tank  $ 
APC  casualties. 


L 


Time  unit  next  avail. 
= time  used  til  now  ♦ 
time  between  msns  ♦ 
(for  cannon  only)  the 
time  to  fire  these 
rounds . 


GS  to  Corps 
DS  multi  volley 


Add  rds  fired  by  this 
GS  unit  to  total  fired 
at  this  range;  and, 
add  to  total  rds  fired 
by  this  unit. 


Add 

to 

system  sums 

the 

wgt 

ti  cost  of  rds; 

and  f 

if 

any,  the  no. 

of  Pers 

, Tank  6 APC 

casualties . 

L 


Time  unit  next  avail 
= time  used  til  now  ♦ 
time  between  msns  + 
(for  cannon  only)  the 
time  to  fire  these 
rounds . 


— (”) 

^ RETURN  ^ 
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Program  Element:  Calculate  Effects 

Symbolic  Name:  EFFECT 

Arguments  in  Call  Statement: 

(IA)  - Identifies  which  fire  unit  on  "A"  array  is  being  considered. 

(KR)  - Identifies  which  round  is  being  considered. 

(IT)  - Identifies  position  on  target  list  of  the  target  being  consi- 
dered. 

Subroutines  which  call  EFFECT:  DIRSUP,  AMASS,  DIVISN,  SHMUVL,  SHONVL, 

CORP 

Subroutines  called  by  EFFECT:  COV 

This  subroutine  performs  effects  calculations  for  two  situations, 
depending  upon  the  calling  subroutine.  When  called  from  AMASS,  this 
subroutine  determines,  for  the  particular  fire  unit,  round  and  target 
under  consideration,  12  elements  of  datum  for  the  "A"  array  associated 
with  the  fire  unit.  Estimated  target  data  are  used  in  these  calcu- 
lations. When  called  from  the  other  listed  subroutines,  however, 
EFFECT  calculates,  based  upon  actual  target  data,  the  actual  effects 
on  the  target  of  a previously  calculated  number  of  rounds  the  unit 
will  fire. 

The  two  processes  are  outlined  below: 

A.  When  called  from  AMASS 

In  this  situation  EFFECT  is  used  to  calculate  the  number  of 
rounds  required  by  a unit  to  reach  the  attack  level,  if  that  unit 
were  firing  by  itself.  (In  essence,  the  potential  of  the  unit  to 
contribute  to  a mission  is  being  evaluated,  since  these  results  will 
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Subroutine  bFFliCT 


(Called  from  AMASS  - Uses  estimated  tgt  data) 


B-87 


be  compared  with  other  units'  results  to  choose  an  optimum  "mix"  of 
firing  units.) 

After  defining  the  round,  unit,  estimated  target  posture,  target 
arrival  and  departure  times  and  delivery  errors,  the  subroutine  calcu- 
lates for  the  given  unit  and  target  parameters,  the  fractional  coverages 
(COV)  which  one  round  will  provide  against  general  target  elements 
(personnel  or  materiel)  in  both  the  open  and  wooded  environments. 

Then  the  fractional  survivors  in  the  specific  target  are  calculated 
for  this  unit  firing  one-volley  of  this  round. 

For  non-observed  fire  missions,  if  the  round  is  the  HE-type,  the 
change  in  personnel  posture  from  unwarned  to  warned  is  then  assigned, 
before  calculating  effects  of  subsequent  volleys.  Likewise,  new  errors 
are  assigned  if  the  target  is  moving.  If  the  one-volley  target  damage 
(effects)  meets  the  attack  level  then  appropriate  elements  of  the  "A" 
array  are  calculated  to  indicate  the  fractional  survivors  of  target 
elements  (personnel  or  materiel)  and  the  required  number  of  rounds  is 
set  at  one-volley.  Otherwise  the  subroutine  begins  an  iteration  pro- 
cess to  determine  how  many  rounds  must  be  added  to  one-volley  in  order 
to  reach  the  specified  attack  level.  (A  missile  unit  is  dropped 
from  consideration  if  it  requires  more  than  one  volley  and  if  the 
target  is  moving,  since  the  time  to  prepare  for  subsequent  volleys 
is  excessive  for  missile  units.) 

When  the  iteration  process  has  determined  the  number  of  rounds 
needed  to  reach  the  attack  level,  appropriate  elements  of  the  "A" 
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Subroutine  liFFHCT  (cont) 
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array  are  calculated  to  indicate  fractional  survivors  and  total  rounds 
required,  as  done  above  for  the  one-volley  solution.  A unit  is  dropped 
from  consideration  (because  of  inefficiency)  if  it  requires  over  980 
rounds  to  reach  the  attack  level,  if  an  additional  500  rounds  cannot 
achieve  at  least  5%  damage  or  if  more  than  two  volleys  are  required 
against  a moving  target.  In  all  cases  control  is  returned  to  the 


AMASS  subroutine. 


Subroutine  EFFECT  (cont) 


Set  A(19), (20)&(21) 

Set  A (22)  5 (23)  * 

= Frac.  Surv.  of  3 

Frac.  Surv.  of  Tank  § 

Pers  Postures  from 

PERS  ^ 

est  main^*^ 
tgt  element 
^V?ers  or  Ma£^ 

vsMAT_> 

APCfs  from  all  rds 

all  rds  from  this 
unit  vs  this  tgt  est 

S 34 

from  this  unit  vs 
this  tgt  est  environ- 

environ. 5 posture. 

ment  and  posture. 

[3S 


If  no  tanks  and/or  APC's 
in  tgt  then  set  A(22) 
and/or  A(23)  = 1. 


RETURN 
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B.  When  called  to  determine  actual  effects 


In  this  situation  EFFECT  is  used  to  calculate  actual  effects 
of  a pre-calculated  number  of  rounds,  given  that  a fire  unit  has  been 
selected  to  fire  those  rounds  on  a target.  This  is  done  only  when 
actual  target  data  for  posture,  environment,  and  target  radius 
differs  from  the  estimated  values.  Otherwise,  data  generated  in 
AMASS  is  still  valid. 

After  defining  the  round,  unit,  actual  posture,  arrival  and 
departure  time,  number  of  rounds  required  and  delivery  errors,  the 
fractional  casualties  against  target  elements  (personnel  and  materiel) 
are  calculated  (COV) . Then  the  fractional  survivors  from  one  volley 
are  calculated  for  the  specific  target,  and,  if  necessary,  these 
values  are  also  calculated  for  the  effects  of  more  than  one  volley. 

As  before,  changes  in  personnel  posture  are  made  (unwarned  to  warned) 
for  HE  ammunition  used  in  non-observed  missions.  Program  control  is 
then  passed  to  the  calling  subroutine. 
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Subroutine  EFFECT  (cont) 

(When  called  to  determine  effects  vs  actual  tgt  data.) 
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Subroutine  EFFECT  (cont) 


Set  OVN , the  Frac. 
Survivors  from  the 
req'd  no.  of  rds 
(_<  1 volley)  * 0. 


\ 27 

Cal.  Frac . Surv . for 
the  3 Pers  Postures 
in  both  open  $ woods 
from  required  rds. 


1 41 

If  this  is  a Material 
tgt,  assume  Pers  are 
1/2  Standing  § 1/2 
Prone  Posture  (NP=1) 


Cal.  Frac.  Pers  Surv. 
from  req'd  rds  for 
the  3 Pers  postures 
for  this  tgt's  actual 
envir.  A(14) (15) (16) 

5 (19)  (20)  (21) 

Set  OVN  * Sum  of  Frac 
Surv  for  tgt  envir  § 
posture . 


Reset 

NP  = NPSET 

C 


[on 


One  volley  or 
less  required. 
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Subroutine  EFFECT  (cont) 


Set  A(12)  * OVN,  the 
Frac.  Surv.  remaining 
after  1 effective 
volley. 


1 17 

Determine  the 
additional  rds  to  be 
fired  (subsequent 
volleys) . 


27 

Cal.  Frac.  Surv.  for 
the  3 Pers  Postures 
in  both  open  5 woods 
after  additional  rds. 


1 37 

Cal.  Frac.  Surv.  for 
the  3 Pers  Postures 
from  all  rds  fired  at 
this  tgt's  actual 
environment 

A(19)  (20)  6 (21). 
Set  ATLVL  * Sum  of 
all  Frac.  Pers  Surv. 
from  all  rds  fired  by 
this  unit  vs  this  tgt 
environment  5 posture. 


pVd 

_J  on 


Add  in  rds  greater  than 
one  volley  required. 


Cal.  Frac.  Surv.  of 
Tanks  5 APC's  in  both 
open  ^ woods  from 


additional  rds. 


40 

Cal.  Frac.  Surv.  of 
Tanks  8 APC's  from  all 
rds  fired  at  this 

actual  tgt  environment 
A(2 2)  « (23). 

Set  ATLVL  * Sum  of  all 
Frac.  Surv.  of  all  Pers 
§ Mat  tgt  elements  from 
all  rds  fired. 


38 

If  no  tanks  and/or 
APC's  in  tgt,  then 
set  A(22)  and/or  A(23) 
= 1. 


RETURN 
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Program  Element:  Calculate  Fractional  Coverage 

Symbolic  Name:  COV 

Arguments  in  Call  Statement:  None 

Subroutines  which  call  COV:  EFFECT 

Subroutines  called  by  COV:  None 

This  subroutine  is  an  approximation  model  which  calculates  a 
circle-on-circle  coverage  of  one  round  (defined  by  a radius  of 
effects)  on  a target  (defined  by  a target  radius),  with  known 
delivery  errors.  The  expected  coverage  formula  is 


FC 


1 


1 


T 


* Rr 


3.5  CPEt 

I 


0 


At(R)  $ (R)  dR 


where 


FC^  = Expected  area  of  target  covered  by  one  round 

R = Distance  between  target  center  and  center  of  effects 
circle 

A^,(R)  = Area  of  target  covered  by  the  effects  circle  whose 
center  is  R units  from  the  center  of  the  target. 

<j>  (R)  = Gaussian  delivery  error  density  function  evaluated  at 
R.  See  Reference  6. 


^Report , An  Operational  and  Cost-Effectiveness  Study  of  the  LANCE 
Missile  System  (U) , Vol  III,  USACDC/USAMC  Study,  April  1965.  SECRET 
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Subroutine  COV 


B-99 


B-97 


The  following  page  is  blank. 


Subroutine  COV  (cont) 
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Program  Element:  Print  Data  Outputs 

Symbolic  Name:  OUTPUT 

Arguments  in  Call  Statement:  None 

Subroutines  which  call  OUTPUT:  Main  Program 

Subroutines  called  by  OUTPUT:  None 

This  subroutine  provides  the  hourly  data  outputs  throughout  the 
course  of  the  computer  game. 

The  initial  prints  include  game  time,  game  "mix"  identifier,  and 
the  cumulative  number  of  acquisitions,  personnel,  tanks,  APC's  and 
Military  Worth  points  acquired  up  to  the  printed  game  time. 

The  subroutine  then  credits  4 personnel  per  tank  killed  and  15 
personnel  per  APC  killed  to  the  total  of  personnel  killed.  (Calcula- 
tions made  during  the  course  of  the  computer  game  assume  these  per- 
sonnel are  inside  vehicles,  and  are  therefore,  not  included  in 
personnel  damage  assessments.)  The  subroutine  then  prints  for  each 
system  allowed  in  RDMIX,  the  total  cost  and  weight  of  ammunition  ex- 
pended and  the  number  of  personnel,  tanks  and  APC's  defeated,  along 
with  a grand  total  of  all  systems.  Additionally,  the  percent  of 
"queued"  missions  (missions  not  fired  and  dropped  from  the  target 
list)  and  the  sum  of  Military  Worth  points  scored  are  also  printed. 

Then  a table  is  printed  showing  round  expenditures  by  one- 
kilometer  range  increments  (up  to  30  kilometers)  for  each  round 
allowed  in  RDMIX,  along  with  a cumulative  total  for  each  round. 
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Subroutine  OUTPUT 


CALL 


i 

c 

Dimension  Variables  & 
Initialize  Counters 

Print  Game  Time 
Total  Acquisiti 
Personnel,  Tank 
Worth  points  ac 

; Mix  Identifier; 
ons ; and  the  total 
, APC's,  5 Military 
:quired  til  now. 

For  each  system  in  game  calculate 
the  number  of  personnel  killed 
inside  defeated  vehicles  and  add 
to  total  of  personnel  killed. 

Print  for  each  system  in  game 
the  cost  5 wgt  of  ammo  fired 
and  the  no.  of  Personnel,  Tanks, 
and  APC* s defeated  til  now. 

Sura  the  totals 
and  calculate  1 
of  all  acquire< 
not  been  fired 
dropped  from  c< 

for  all  systems; 
b "Q"  i.e.  the  % 

1 msns  which  have 
and  have  been 
ansideration . 

Print  ”til  now”  totals  for  ammo 
cost  & wgt;  Pers,  Tank  and  APC 
kills;  % "Q";  and  Military  Worth 
of  defeated  targets. 


Print  column  headings  for  round 
vs  range  tabulation  from  1 to 
km. 


For  each  round  in  the  mix,  print 
the  number  of  rounds  fired  at 
each  km  range  increment  from 
1 to  30  km;  and  print  the  sum 
for  each  round. 


Calculate  summaries  for  Other 
Missions,  regular  tgts  and 
their  totals. 


Print  summaries  of  acquisitions; 
targets;  ”Q"ed  missions;  and 
missions  fired,  defeated  and 
lost.  Print  queued  mission 
summaries . 


Is 


bver? 

Y] 

Clear  arrays  used  for 
summing  kills  of 
personnel  in  vehicles. 

L_ 

C 


RETURN 


) 
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The  following  page  is  blank. 


Next  a table  is  printed  showing  number  of  acquisitions,  targets, 
queued  missions,  queued  missions  plus  missions  still  on  the  target 
list,  missions  fired,  missions  defeated,  and  missions  fired  but  not 
defeated  (lost),  broken  down  by  "other"  missions,  regular  targets  and 
a sum  of  both. 

Finally,  a queued  mission  breakdown  is  printed,  along  with  target 
list,  reacquired  mission  and  combined  target  totals. 

After  clearing  summation  counters  if  the  game  is  over,  control  is 
returned  to  the  main  program.  See  Sample  Output  in  Appendix  E. 
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Program  Element:  Special  Missions 

Symbolic  Name:  SPECIL 

Arguments  in  Call  Statement:  (IT)  - Identifies  position  on  target 

list  of  the  target  being  considered. 

Subroutines  which  call  SPECIL:  Main  Program 

Subroutines  called  by  SPECIL:  None 

This  subroutine  provides  for  attempts  to  fire  the  special  or 
"other"  type  missions,  i.e.  Smoke,  Illumination  or  H&I.  After 
setting  keys  to  indicate  the  appropriate  acquiring  echelon,  this 
subroutine  examines  the  list  of  fire  units  at  that  echelon  to 
determine  which  are  not  busy  and  have  enough  rounds  available  to 
fire  the  pre-calculated  number  of  rounds  required.  (The  number  of 
rounds  required  for  each  type  system  are  read  from  tape  (RTAPE) 
when  the  target  list  was  input.) 

Since  smoke  and  illumination  rounds  are  not  included  in  the  list 
of  rounds  input;  and  since  Hfil  missions  usually  fire  HE  type  ammuni- 
tion, this  subroutine  searches  through  the  allowed  rounds  for  each 
available  fire  unit  to  find  the  minimum  cost  HE  round.  Rounds  fired 
for  these  type  missions  will  then  be  credited  to  the  minimum  cost  HE 
round  for  the  fire  unit. 

The  subroutine  then  determines  which  single  available  unit  can 
accomplish  the  mission  with  the  least  total  cost  of  ammunition  and 
proceeds  to  credit  the  rounds  fired  to  that  unit,  determines  the  time 
used  by  the  unit  and  increases  the  military  worth  point  counters. 


B-104 


Examine  next  unit  in 


Subroutine  SPECIL 


C 


CALL 


X 


Identify  acquiring 
echelon  (MORG) 


20] 


Initialize  counters 
and  keys 

* 

. N 

Increase  counter  of  units  available 
(NA)  $ define  for  this  unit: 

A (27)  * Placement  No.  on  unit  list. 

A(l)  * Placement  No.  on  system 
list* 

A(2)  * Time  used  by  unit  til  now. 

1 ° M?  now  ,gn  hand 


Print  error 
statement. 


A(4)  = Max  rds  capable  of  firing 
at  this  target  equals  least  of: 


(1)  Max  rds  unit  allowed  to  fire 
at  this  type  tgt  (static/moving 
X%  of  unit  in  place. 

(2)  Max  hourly  ROF  - Rds  fired 
in  last  60  mins. 

(3)  1/2  Basic  Load  + no.  rds 

resuppjied  til  now  - rd  fired 
til  now. 


A(4)  = Max  rds  capable  of  firing 
at  this  target  equals  least  of: 

(1)  Max  rds  unit  allowed  to  fire 
at  this  type  tgt  X%  of  unit  in 
place . 

(2)  Max  hourly  ROF  - rds  fired 
in  last  60  mins. 

(3)  1/2  Basic  Load  + 1 days 
resupply  - rd  fired  til  now. 

(4)  3/4  Basic  Load  + no.  rds 

resupplied  til  now 
til  how. 


no. 
rds  fired 


I 


Define  for  this  unit: 

A(3)  = Max  ROF  (Rd/Hr/Tube)  vs  this  tgt. 
A(5)  = Frac.  of  unit  in  place. 

A(6)  = Uhit  Easting 
A(7)  = Unit  Northing 
A{8)  * Unit  Echelon 
A(9)  = (Gun-Tgt  Range)2  (KM2) 


Location  (KM) 


~ KD 
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After  setting  a key  to  indicate  that  the  mission  was  accomplished 
(=defeated)  control  returns  to  the  main  program. 

If  the  acquiring  echelon  does  not  have  a unit  which  can  accomplish 
the  mission  other  echelons  are  then  searched  in  the  following  order: 


Acquiring  Echelon 

Next  Attempt 

Final  Attempt 

DS 

GS 

CORPS 

GS 

DS 

CORPS 

CORPS 

GS 

DS 

If  no  unit  can  be  found  to  accomplish  the  mission  from  among  all 
echelons,  control  returns  to  the  main  program  where  this  mission  will 
be  removed  from  the  target  list  and  counted  towards  the  sum  of  queued 
missions. 
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Examine  next  unit  in  game. 


Subroutine  SPEC1L  (Cont) 


B-108 


6 


B-108 


B-107 


Subroutine  SPUCIL  (cont) 


Set  MORG  = 2 

Set  MORG  = 3 

Set  MORG  = 1 

Set  MORG  = 2 

(Try  GS  units) 

(Try  Corps  units) 

(Try  DS  units) 

(Try  GS  units) 

34 


Reset  all  elements 
of  A array  * 0. 
NA  = 0 


© 


20J 
B-105 


© 


Add  the  rds  fired  to  the 
total  of  rds  fired  by 
this  unit;  6 add  to  the 
total  of  these  rds  fired 
at  this  range. 


Add  to  syst 
the  wgt  5 c 
rds  fired 

em  sums, 
ost  of 
l here. 

1 

1 

Time  unit  next  avail  = 
time  used  til  now  + time 
to  fire  these  rounds. 

Add  Military  Worth  of 
this  tgt  to  sum  of 
Military  Worth  Counter 
(SMW) . 


Key  DEFSP  « 1.0  to 
indicate  that  msn 
was  completed. 


^ RETURN  ^ 
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APPENDIX  C 

PROGRAM  VARIABLE  LISTING 


The  following  page  is  blank. 
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COMMON  TERMS 


N*unt.» 

Size 

Input 

Units 

Meaning 

Remarks 

A 

27  x 100 

Real 

Array  of  data  for  each  unit  vs  a 
given  target. 

Gee  "A"  Array  Data 

AE 

50  x 10 

l/m? 

I/Rds  Area  of  Effects  (For  HE 
munitions,  this  is  set  = 0) 

Sub.  HEINP  & ACMINP 

AMSN 

385  x 8 

Real 

List  of  target  ID  and  number  rounds 
each  system  needs  to  fire  a given 
special  (OTHER)  mission. 

Sub.  RTAPE  & SPECIL 
See  Table  3 .6 

AMWS 

- 

Real 

Accumulates  total  Military  Worth 
points  scored  on  attacked  targets. 

AOP 

50  x 10 

Real 

Pj.  at  the  10  range  increments  for 
each  round  vs  APC’s  in  open. 

See  ACMINP  & HEINP 

APC 

- 

Real 

Accumulates  fractional  survivors  of 
APC  as  fire  units  are  added  to 
attack. 

Used  only  in  one- 
volley  attack  method. 

ATLVL 

- 

Real 

Attack  level  - the  maximum  % of 
survivors  allowed  after  firing. 

Initially  set  at  .5. 
If  exceeded,  cannot 
fire. 

AWP 

50  x 10 

Real 

P^  at  the  10  range  increments  for 
each  round  vs  APC’s  in  woods. 

See  ACMINP  & HEINP 

BLD 

10 

Rd/Unit 

Fire  Unit  Basic  Ammo  Load 

Sub.  RDSYS 

CCOV 

10 

Real 

Fractional  coverages  for  given 
condition  for  5 posture  elements  in 
open  & woods . 

See  EFFECT 

COP 

50  x 10 

Real 

at  10  range  increments  for  each 
round  vs  crouching  personnel  in  open. 

See  ACMINP  & HEINP 

CPER 

- 

Meters 

Rd-Rd  CPE  at  specific  Gun-Target  Range 

See  INTERP 

CPET 

- 

Meters 

Total  CPE  at  specific  G-T  Range 

See  INTERP 

CPK 

10 

Real 

p£  at  specific  Gun-Target  Range  for 

the  5 posture  elements  in  open  & 
woods . 

See  INTERP 

CPOST 

5 

Real 

The  fractional  Burvivors  in  the  five 
posture  elements  after  the  1st  volley. 

See  EFFECT 

CPR 

50  x 10 

Meters 

Rd-Rd  CPE  at  each  of  10  Range  Incre- 
ments . 

Sub.  RDRND 

CPS 

50  x 10 

Meters 

Total  CPE  at  each  of  10  Range  Incre- 
ments . 

Sub . RDRND 

CRE 

10 

Meters 

Rd.  Radius  of  Effects  at  specific  Gun- 
Target  Range  for  the  5 postures  in 
open  & woods. 

See  INTERP 

CRIT 

- 

Real 

Accumulates  total  cost  or  weight  of 
rounds  as  fire  units  are  added  to 
attack . 

Used  only  in  one- 
volley  attack  method 
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COMMON  TERMS  (CONT) 


Name 

Size 

Input 

Units 

Meaning 

Remarks 

cniTP 

- 

Real 

Intermediate  sum  of  cost  or  weight 
of  rounds  as  fire  units  are  added 
to  attack. 

Used  only  in  one- 
volley  attack  method. 

CRT 

50 

Real 

Critical  Factor : Set  = Weight  or 

cost  for  each  round,  per  CRTERA. 

Sub.  RDMIX 

CRTERA 

- 

Int . 

Keys  ammo  cost  or  weight  as 
critical. 

Sub.  RDMIX 

CST 

50 

Kilo$/Rd 

Rd.  Cost 

Sub.  RDRND 

CSTI 

50 

Rd/Kilo$ 

1/Rd.  Cost 

Sub.  RDRND 

CSURV 

10 

Real 

Fractional  survivors  from  one 
volley  for  5 posture  elements  in 
open  & woods. 

See  EFFECT 

CTI 

- 

Real 

Absolute  maximum  value  for  round 
cost  or  weight. 

Initialized  as 
10^  in  Main  Program. 

cwp 

50  x 10 

Real 

p£  at  10  range  increments  for  each 
round  vs  crouching  personnel  in 
woods . 

See  ACMINP  fie  HEINP 

CXID 

16 

Alpha- 

Numeric 

Force  Identifier  Code 

Sub.  PRELIM 

DEFSP 

- 

Real 

Key  to  indicate  that  "OTHER  MSN" 
has  been  undertaken. 

See  SPECIL 

DELT 

- 

Decimal 

Hours 

Time  Increment  = .25 

Game  cycles  thru  target  list  each 

DELT. 

Sub.  PRELIM 

DEP 

50 

Real 

% of  round  recoverable  misfires. 

Sub.  RDRND 

DEPI 

50 

Real 

X/%  of  round  recoverable  misfires. 

Sub.  RDRND 

dnmx 

10 

Rd/Tube/ 

Msn 

Maximum  rounds  allowed  vs  moving 
target . 

Sub.  RDSYS 
(Converted  to  Rd/FU/ 
Msn) 

DROF 

10 

Rd/Mi n/ 
Tube 

System  maximum  rate  of  fire  vs 
moving  target. 

Sub.  RDSYS 
(Converted  to  Rd/Hr/ 
Tube) 

DSFLAG 

- 

Real 

Key  to  indicate  that  DS  units  have 
been  tried. 

DVFLAG 

- 

Real 

Key  to  indicate  that  GS  units  have 
been  tried. 

EC1 

- 

Real 

Fractional  coverage  for  a given 
posture  fie  environment. 

See  C0V 

EXCES1 

- 

Real 

Key  to  indicate  that  one-volley 
method  needs  excessive  weight. 

Used  only  in  one- 
volley  attack  method. 
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COMMON  TERMS  (CONT) 


Nome 

Size 

Input 

Units 

Meaning 

Remarks 

EXCESS 

- 

Real 

Key  to  indicate  that  multi-volley 
method  needs  excessive  weight. 

Used  only  in  multi- 
volley  attack 
method . 

F 

Real 

Fractional  part  of  last  volley 
needed  to  reach  attack  level. 

Used  only  in  one- 
volley  attack 
method. 

FACT 

- 

Real 

Gome  Intensity  Key 

Bub.  PRELIM 

FH 

~ 

Real 

Accumulates  fractional  survivors 
of  personnel  in  foxholes  as  fire 
units  are  added  to  attack. 

Used  only  in  one- 
volley  attack 
method. 

FM 

~ 

Real 

Fractional  part  of  last  fire  unit's 
available  rounds  needed  to  reach 
attack  level. 

Used  only  in  multi- 
volley attack 
method. 

FRWM 

10 

Real 

Fraction  of  fire  units  in  place 
during  moves . 

Sub.  RDSYS 

FSID 

100 

Real 

Identifies  each  fire  unit  by  system 
ID. 

Sub.  RDFU 

FT 

6 x 100 

Rds . 

Lists  total  ammo  fired  for  each  fire 
unit  for  current  & last  5 quarter  hours. 

HBLD 

10 

Rds . 

1/2  Fire  Unit  Basic  Ammo  Load 

See  RDSYS 

Hr m 

10 

Rd/Tube/ 

Hr 

Maximum  rounds  allowed  to  fire  in  1 
hour. 

Sub.  RDSYS 
(Converted  to  Rd/FU/ 
Hr) 

IFM 

” 

Int. 

Identifies  last  fire  unit  to  fire  all 
available  rounds,  as  fire  units  are 
added. 

Used  only  in  multi- 
volley attack 
method. 

IFONE 

“ 

Int . 

Identifies  last  fire  unit  which 
fires  a full  volley,  as  fire  units 
are  added. 

Used  only  in  one- 
volley  attack 
method . 

ITC 

- 

Msns . 

No.  of  ’’OTHER”  Msns.  acquired. 

KFIG 

100 

Int. 

Keys  those  fire  units,  by  echelon, 
which  are  allowed  in  the  game  mix. 

Sub.  RDMIX 

KOUNT 

- 

Tgts. 

No.  of  targets  in  target  (TN)  array. 

KRIG 

50 

Int. 

Keys  the  rounds  allowed  in  the  mix. 

Sub.  RDMIX 

KSIG 

10 

Int . 

Keys  the  systems  allowed  in  the  mix. 

Sub.  RDMIX 

LOSS 

- 

Tgts. 

No.  of  targets  on  Partially  Defeated 
List  (TL0ST). 

MATCH 

- 

Int. 

A given  target  position  in  TN  Array. 

Used  to  place  tar- 
gets in  priority 
position. 
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COMMON  TERMS  (CONT) 


Name 

Size 

Input 

Units 

Meaning 

Remarks 

MFEAT 

- 

Tgts . 

No.  of  targets  on  Defeated  Target  List 

(tdft) . 

MIXID 

16 

Alpha 

Numeric 

System-Rd-Fire  Unit  Game  Mix 
Identifier. 

Sub.  RDMIX 

MORG 

- 

Int. 

Key  to  which  echelon  is  being 
massed  in  AMASS. 

1 - DS,  2 - GS, 
3 - CORPS 

NA 

- 

Int . 

Counts  available  Fire  Units 
during  massing  process. 

NA1 

- 

Int. 

Indicates  position  in  ”AM  array 
of  best  fire  unit. 

Used  only  in  multi- 
volley attack  method 

NA  CQ 

- 

Acquisi- 

tions 

Sum  of  target  acquisitions. 

NB 

- 

Int. 

Indicates  position  in  "A"  array 
of  1st  fire  unit  in  a given  echelon. 

NBA1 

- 

Int . 

Indicates  position  of  1st  DS  fire 
unit  in  "A"  array. 

NBA2 

- 

Int . 

Indicates  position  of  1st  GS  fire 
unit  in  "A”  array. 

NBAS 

- 

Int. 

Indicates  position  of  1st  CORPS 
fire  unit  in  "A"  array. 

NE 

- 

Int. 

Indicates  position  in  "A"  array  of 
last  fire  unit  in  a given  echelon. 

NEA1 

- 

Int . 

Indicates  position  of  last  DS  fire 
unit  in  ”A"  array. 

NEA2 

- 

Int . 

Indicates  position  of  last  GS  fire 
unit  in  "A"  array. 

NEA3 

- 

Int . 

Indicates  position  of  last  CORPS 
fire  unit  in  "A"  array. 

NFM 

- 

Fire  Mans 

Sum  of  all  missions  fired. 

NFMD 

- 

Ms  ns . 

Sum  of  all  targets /msns  defeated. 

NFU 

- 

Fire  Units 

Number  of  Fire  Units 

Sub.  RDFU 

NOM 

- 

Mans . 

Sum  of  "OTHER  MSNS"  acquired. 

NOMF 

- 

Ms  ns . 

Sum  of  "OTHER  MSNS"  fired. 

NP 

- 

Int . 

Posture  Mix  Identifier  for  main 
target  element . 

Sub.  RDFU 

NQ 

- 

Mans. 

Total  of  all  msns  not  undertaken. 

NQD 

- 

Tgts. 

Sum  of  targets  which  depart  prior  to 
firing. 

NQLP 

- 

Tgts. 

Sum  of  targets  not  fired  due  to  low 
priority . 
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COMMON  TERMS  (CONT) 


Name 

Size 

Input 

Units 

Meaning 

Remarks 

NQOM 

- 

Ms  n s . 

Sum  of  "OTHER  MSNS"  tried  but  can't  do 

NRDS 

- 

Rds . 

Number  of  rounds  in  force. 

Sub.  RDRND 

NRO 

12 

Rds. 

The  number  of  round  types  allowed 
to  fire  vs  a given  target  posture 
in  open. 

Sub.  RDFU 

NRFD 

- 

Reacq's 

Sum  of  reacqs  of  defeated  targets. 

NRW 

12 

Rd. 

The  number  of  round  types  allowed  to 
fire  vs  a given  target  posture  in 
woods . 

Sub.  RDFU 

NRW2 

- 

Tgts . 

Sum  of  targets  which  are  combined. 

Targets  within  200m 
of  each  other. 

NSITE 

100 

Sites 

Number  of  sites  for  each  fire  unit. 

Sub.  RDFU 

NSYS 

- 

Systems 

Number  of  Wpn  System  Types 

Sub.  RDSYS 

NTGT 

- 

Tgts. 

Sum  of  targets  acquired. 

Counts  only  1st 
acquisition. 

ON  CRT 

- 

Real 

Total  cost  or  weight  (whichever  is 
critical)  to  reach  attack  level. 

Used  only  in  one- 
volley  attack 
method. 

ORVP 

12  x 12 

Real 

Rd.  ID  Number  of  the  rounds  allowed 
to  fire  vs  a given  target  posture 
in  open. 

Sub.  RDFU 

PERO 

- 

Real 

% of  target  element  in  open. 

PERW 

- 

Real 

% of  target  element  in  woods. 

PII 

- 

Real 

i/n 

Constant  term. 

PO 

- 

Real 

Accumulates  fractional  survivors 
of  prone  personnel  as  fire  units 
are  added  to  attack. 

Used  only  in  one- 
volley  attack 
method. 

POP 

50  x 10 

Real 

Pj(  at  the  10  range  increments 
for  each  round  vs  prone  personnel 
in  open. 

See  ACMINP  & HEINP 

POST 

12  x 11 

Real 

Table  of  12  possible  posture  mixes. 

Sub.  PRELIM 

PWP 

50  x 10 

Real 

P^  at  the  10  range  increments  for 

each  round  vs  prone  personnel  in 
woods . 

See  ACMINP  & HEINP 

QELD 

10 

Rds. 

1/h  Fire  Unit  Basic  Ammo  Load. 

See  RDSYS 

QN 

- 

Rds. 

Number  rounds  required  by  "best" 
available  fire  unit  to  reach 
attack  level. 

Used  only  in  multi - 
volley  attack 
method. 

QUV 

100 

Real 

Ratio  of  rounds  needed  by  a fire 
unit  compared  to  rounds  needed 
by  "best”  fire  unit. 

Used  only  in  multi- 
volley attack 
method. 
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COMMON  TERMS  (CONT) 


Name 

Size 

Input 

Units 

Meaning 

Remarks 

U.'MX 

50 

KM2 

2 

Rd.  Max  Range 

Sub.  RDRND 

HDCNT 

50  x 30 

Rds . 

Sum3  for  each  round  type  the  no. 
of  rounds  fired  at  1,  2,  thru  30 
or  more  KM. 

RE 

50  x 10 

Meters 

Rd.  radius  of  effects  (For  HE 
munitions,  PK  values  are  set). 

Sub.  HEINP  & ACMINP 

RKK 

Meters 

Set  equal  to  round  radius  of 
effects  for  given  condition  in 
calculating  coverage. 

See  EFFECT 

REFIRE 

- 

Real 

A key  to  indicate  reattack  at 
a lover  attack  level  is  to  be  tried. 

REL 

50 

Real 

Rd.  In-flight  reliability 

Sub.  RDRND 

RELI 

50 

Real 

1/Rd.  In-flight  reliability 

Sub.  RDRND 

RMX 

50 

KM 

Rd.  Max.  Range 

Sub.  RDRND 

RNDID 

50 

Real 

Rd.  ID  Number 

Sub.  RDRND 

RNG 

50  x 10 

KM 

10  Range  Increments  per  rd. 

Sub.  RDRND  2 

(Converted  to  KM  ) 

RPV 

- 

Rd/volley 

No.  of  rds /volley  for  a given 
fire  unit. 

RSPY 

10 

Rd/FU/Hr 

Fire  Unit  Ammo  Resupply  Rate 

Sub.  RDSYS 

RT 

- 

Meters 

Target  Radius 

RTP 

50 

Real 

Key  to  round  type  (ICM  or  HE) 

Sub.  RDRND 

S 

10  x 5 

Real 

Sum  of  ammo  cost  & weight  and  number 
of  personnel,  tank  & APC  defeated. 

Sums  for  each 
system. 

SAPC 

- 

APC’s 

Sum  of  number  of  APC  acquired. 

SAVE1 

- 

Real 

Temporary  storage  of  fractional 
personnel  survivors  from  previous 
attacks . 

SAVE2 

- 

Real 

Temporary  storage  of  fractional  tank 
survivors  from  previous  attacks. 

SAVE3 

- 

Real 

Temporary  storage  of  fractional  APC 
survivors  from  previous  attacks. 

SMCRT 

- 

Real 

Total  cost  or  weight  (whichever  is 
critical)  needed  to  reach  attack 
level . 

Used  only  in  multi- 
volley attack 
method. 

SMW 

- 

Real 

Sum  of  Mil  Worth  of  damaged  tgts . 

SNMX 

10 

Rd/Tube/Msn 

Max.  rds.  allowed  vs  static  tgt. 

Sub.  RDSYS 
(Converted  to  Rd/FU/ 
Msn) 
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COMMON  TERMS  (CONT) 


Name 

Size 

Input 

Units 

Meaning 

Remarks 

SOP 

50  x 10 

Real 

Pj(  at  the  10  range  increments  for 

each  round  vs  standing  personnel  in 
open. 

See  ACMINP  & HEINP 

SPERS 

- 

Pers . 

Sum  of  number  of  personnel  acquired. 

SQN 

~ 

Rds. 

Accumulates  total  number  of  effective 
rounds  needed  as  fire  units  are 
added. 

Used  only  in  multi- 
volley attack 
method. 

SROF 

10 

Rd/Min/Tube 

System  maximum  rate  of  fire  vs 
static  tgt. 

Sub.  RDSYS 
(Converted  to 
Rd/Hr /Tube) 

ST 

— 

Real 

Accumulates  fractional  survivors 
of  standing  personnel  as  fire  units 
are  added  to  attack. 

Used  only  in  one- 
volley  attack 
method. 

STANK 

- 

Real 

Sura  of  number  of  tanks  acquired. 

STYP 

10 

Real 

Key  to  system  type  (Cannon  or  Missile) 

Sub.  RDSYS 

SURV 

- 

Real 

Accumulates  total  fractional  sur- 
vivors of  all  target  elements  as 
fire  units  are  added. 

Used  only  in  one- 
volley  attack 
method. 

SURVP 

- 

Real 

Intermediate  sum  of  fractional 
survivors  of  all  target  elements . 

Used  only  in  one- 
volley  attack 
method . 

swp 

50  x 10 

Real 

Pj,  at  the  10  range  increments  for 

each  round  vs  standing  personnel 
in  woods. 

See  ACMINP  & HEINP. 

SYSID 

10 

Real 

Wpn  system  ID  Numbers 

Sub.  RDSYS 

SYSRD 

10  x 10 

Real 

List  of  Rd  ID*s  allowed  for  each 
system. 

Sub.  RDFU 

T 

- 

Decimal 

Hours 

Game  Clock  Time 

TA 

8 x 100 

Hr.  min 

Arrival  Time  for  fire  units  at  each 
site. 

Sub.  RDFU 
(Converted  to 
Decimal  Hours) 

TBM 

10 

Minutes 

Time  Between  Missions  - Time  for 
fire  units  to  prepare  for  and  fire 
one  volley. 

Sub.  RDSYS 
(Converted  to 
Hours ) 

TD 

8 x 100 

Hr.  min 

Departure  Time  for  fire  units  from 
each  site. 

Sub.  RDFU 

(Converted  to  Decimal 
Hours ) 

TDFT 

1000 

Real 

List  of  defeated  tgt.  ID  numbers. 

TK 

- 

Real 

Accumulates  fractional  survivors  of 
tanks  as  fire  units  are  added  to 
attack. 

U9ed  only  in  one- 
volley  attack 
method. 
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COMMON  TERMS  (CONT) 


Input 


Name 

Size 

Units 

Meaning 

Remarks 

T1.QST 

5 x 1000 

Real 

Array  of  partially  defeated  tgts. 

Includes  Tgt.  ID, 

% Pers , Tank  & APC 
Survivors. 

TMX 

- 

Decimal 

Hours 

Game  End  Time 

Sub.  PRELIM 

TN 

30  x 300 

Real 

A priority  listing  of  targets 
to  be  considered  for  attack. 

See  Table  3.6 

TN28T 

Pers . 

Temporary  storage  of  number  of 
personnel  survivors  in  target 
at  start  of  attack  by  a given  fire 
unit . 

TN29T 

Tanks 

Temporary  storage  of  number  of 
tanks  in  target  at  start  of  attack 
by  a given  fire  unit. 

TN30T 

- 

APC's 

Temporary  storage  of  number  of 
APC’s  in  target  at  start  of  attack 
by  a given  fire  unit. 

TNI 

33 

Real 

Temporary  storage  of  target  data. 

See  RTAPE 

TOEP 

- 

Pers . 

No.  of  personnel  in  target  outside 
of  tank  & APC. 

TOP 

50  x 10 

Real 

P^  at  the  10  range  increments  for 
each  round  vs  tanks  in  open. 

See  ACMINP  & HEINP 

TPFU 

10 

Tubes /Unit 

No.  of  tubes  (launchers)  per  fire 
unit. 

Sub.  RDSYS 

TR 

- 

Real 

Key  to  indicate  target  was  attacked. 

TUBFU 

100 

Decimal 

Hours 

Clocks  of  time  used  by  each  fire  unit. 

TWP 

50  x 10 

Real 

P^  at  the  10  range  increments  for 
each  round  vs  tank9  in  woods. 

See  ACMINP  & HEINP 

TZRO 

- 

Decimal 

Hours 

Game  Start  Time 

Sub.  PRELIM 

W 

- 

Real 

In  2. 

Constant  term. 

W1 

- 

Real 

2 In  2. 

Constant  term. 

WAIT 

- 

Metric 

Tons 

Total  weight  of  rounds  needed  for 
one-volley  attack. 

Used  only  in  one- 
volley  attack 
method . 

WAIT2 

- 

Metric 

Tons 

Total  weight  of  rounds  needed  for 
multi-volley  attack. 

Used  only  in  multi- 
volley attack 
method. 

WAIT3 

- 

Metric 

Tons 

Total  weight  of  rounds  needed  for 
a single  DS  fire  unit  to  attack. 

Used  only  in  DIRSUP 
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COMMON  TERMS  (CONT) 


Input 

Name 

Size 

Units 

Meaning 

Remarks 

WARN 

50 

Seconds 

Rd.  Signiture  (Warning) 

Sub.  RDRND 

WOT 

50 

Metric 

Tons/Rd 

Crated  Weight  per  round. 

Sub.  RDRND 

WOT  I 

50 

Rd/Metric 

Ton 

1/Crated  Weight  per  round. 

Sub.  RDRND 

WKS 

- 

Real 

-l./n  x In.  7 

Constant  term 

WRVF 

12  x 12 

Real 

Rd.  ID  Number  of  the  rounds  allowed 
to  fire  vs  a given  target  posture 
in  woods. 

Sub.  RDFU 

xs 

8 x 100 

KM 

X-coord  (Northing)  of  fire  unit  at 
each  site. 

Sub.  RDFU 

XVN 

- 

Rds . 

No.  rounds  a given  fire  unit  needs 
to  reach  attack  level. 

Also  used  as  a key 
when  calling  EFFECT 
from  AMASS. 

YS 

8 x 100 

KM 

Y-coord  (Easting)  of  fire  unit  at 
each  site. 

Sub.  RDFU 

The  following  page  is  blank. 
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MAIN  PROGRAM  VARIABLES 


Name 

DN 

FR 

I 

IT 

J 

JK 

JL 

K 

KJ 

KT 

L 

TOUT 


Units  Meaning 

Real  Counter  for  placing  target  in  game  FR  times . 

Real  Target  frequency  at  this  game’s  intensity. 

Subscript  to  identify  elements  in  ammo  counter  array  FT. 

Subscript  to  identify  targets  in  target  array  TN. 

Subscript  to  identify  fire  units,  ”A”  array  elements  and 
TLOST  elements . 

Subscript  to  identify  targets  on  list  of  defeated  targets 
TDFT. 

Subscript  to  identify  targets  on  array  of  partially  defeated 
targets  TLOST. 

Subscript  to  identify  fire  units  in  "A"  array  & elements  in 
TLOST  array. 

Subscript  to  identify  elements  in  AMSN  array. 

Number  of  targets  on  TN  array  at  start  of  15  min  game  cycle . 
Key  for  the  echelon  which  acquired  a given  target. 

Counter  to  control  OUTPUT  frequency. 


The  following  page  is  blank. 
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SUBROUTINE  VARIABLES 


Name  Units 


1 Int. 

J Int. 

PI  Real 


I Int . 


I Int. 

J Int. 


AL(IO) 

EN 

I 

J 

K 

PRO 

PRW 

REZ 

SRE 

SRO 

SRW 


Meters 
Submissiles 
Int . 

Int . 

Int . 

Real 

Real 

Meters 

Real 

Real 

Real 


AL(100)  Meters 

I Int. 

J Int. 


I Int. 

J Int. 

LK1  Rounds 

LK2  Rounds 

LTA  Int . 

LTD  Int. 

NS  Sites 

XTA  Real 

XTD  Real 


Meaning 


PRELIM 


Subscript  used  to  identify  each  of  12  postures  in  POST  array. 
Subscript  used  to  identify  data  points  for  each  posture. 

II  = 3.1*4159  (A  constant  term) 


RDSYS 

Subscript  used  to  identify  inputs  for  each  system. 


RDRND 

Subscript  used  to  identify  data  inputs  for  each  round. 
Subscript  used  to  identify  inputs  at  each  of  10  ranges  for 
each  round. 


ACMINP 

List  of  Lethal  Areas  at  10  range  increments. 

Number  of  submissiles  in  a given  round. 

Subscript  to  identify  a given  round. 

Subscript  to  identify  the  10  RE's  and  P^'s  for  given  round. 
Subscript  to  identify  10  Lethal  Area  inputs  for  given  round. 
Intermediate  value  in  calculating  P^'s  vs  open  targets. 
Intermediate  value  in  calculating  P^'s  vs  wooded  targets. 
Y-intercept  of  Radius  of  Effects  vs  Range  Plot  for  given  round. 
Slope  of  Radius  of  Effects  vs  Range  Plot  for  given  round. 
Submissile  reliability  in  open  environment  for  given  round. 
Submissile  reliability  in  wooded  environment  for  given  round. 


HEIN? 


List  of  100  Lethal  Areas  at  10  ranges  for  10  postures. 
Subscript  to  identify  a given  round. 

Subscript  to  identify  100  Lethal  Areas. 


RDFU 


Subscript  to  identify  fire  units,  systems,  and  postures. 
Subscript  to  identify  fire  unit  sites  and  rounds  allowed  for 
each  system  & posture. 

Number  of  rounds  allowed  vs  open  targets  with  a given  posture. 
Number  of  rounds  allowed  vs  wooded  targets  with  a given  posture. 
Used  to  convert  fire  unit  arrive  times  from  hr-min  to  decimal 
hours. 

Used  to  convert  fire  unit  departure  times  from  hr-min  to  decimal 
hours. 

Number  of  firing  sites  occupied  by  a given  fire  unit. 

Used  to  convert  fire  unit  arrive  times  from  hr-min  to  decimal 
hours . 

Used  to  convert  fire  unit  departure  times  from  hr-min  to  decimal 
hours . 
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SUBROUTINE  VARIABLES  (CONT) 


Name 


Units 


Meaning 


RDMIX 


I 

Int. 

Subscript  to  identify  systems,  rounds,  fire  units  and  ammo 
critical  parameter. 

I CRT 

Int . 

Defines  critical  ammo  parameter  (either  cost  (l)  or  weight  (2).! 

TZERO 

I 

Int . 

Subscripts  to  identify  systems,  rounds,  targets  and  associated 

J 

Int. 

data  during  initialization  of  arrays  & lists. 

RTAPE 

J 

Int. 

Subscript  to  identify  various  systems  for  "OTHER”  msns. 

KFACT 

Int . 

Game  Intensity  Key  (l=Low;  2=Mid,  3=Base,  h=High) 

REMOVE 

I 

Int. 

Subscript  to  identify  30  target  parameters  per  target  on 
target  list. 

IKZ 

Targets 

Number  of  targets  remaining  on  target  list  after  a given  target 
is  removed. 

J 

Int. 

Subscript  to  identify  a target’s  position  on  target  list. 

K 

Int. 

Position  on  target  list  (TN)  of  target  to  be  removed. 

COMPAR 

D 

KM2 

Distance  squared  between  2 acquired  locations  of  same  target. 

X 

Int. 

Subscript  to  identify  target  on  defeated  85  partially  defeated 
lists  and  data  points  on  target  list. 

J 

Int. 

Subscript  to  identify  target  on  target  & defeated  target 
lists  and  data  points  on  TLOST  array. 

K 

Int. 

Subscript  to  identify  target  on  TLOST  array;  specifies  target 
position  on  target  list. 

KI 

Int . 

Subscript  to  identify  target  position  on  target  list. 

M 

Int. 

Defines  position  of  a given  target  on  target  list. 

MAX 

Int. 

Defines  maximum  number  of  targets  carried  on  target  list. 

DIRSUP 

A9 

KM 

Gun-Target  range  for  the  fire  unit  firing  the  DS  mission. 

ASUM 

Real 

Sum  of  fractional  personnel  survivors  (standing,  crouching 
and  prone ) . 

B 

Decimal 

Hours 

Time  used  by  cannon  fire  unit  to  fire  more  than  1 volley. 

CONSTR 

Kilometric 

Tons 

Maximum  total  weight  of  ammo  allowed  vs  target. 

IDS 

Int. 

Subscript  to  identify  a DS  fire  unit  on  ”A"  array  (array  of 
available  units). 

IDS1 

Int. 

Subscript  to  identify  closest  DS  fire  unit  to  target. 

IR 

Int. 

Subscript  to  identify  best  round  of  closest  DS  fire  unit  to 
target. 

IRNG 

KM 

Subscript  to  identify  gun-target  range  rounded  off  to  nearest 
KM. 

IS 

Int. 

Subscript  to  identify  the  system  of  the  closest  fire  unit  to 
target. 
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SUBROUTINE  VARIABLES  (CONT) 


Name 

Units 

Meaning 

DIRSUT  (Cont'd) 

IT 

Int . 

Subscript  to  identify  which  target  on  target  list  is  being 
attacked. 

IXZ 

Int . 
KM2 

Subscript  to  identify  which  fire  unit  of  all  those  input  is 
being  used.  ^ 

RANGE 

(Gun-target  range)  for  the  fire  unit  firing  mission. 

RNGINT 

KM 

Used  to  round  off  the  gun-target  range  to  nearest  KM. 

TOE 

Personnel 

Number  of  personnel  (if  any)  in  tanks  & APC's. 
INTERP 

D1 

KM2 

Proportional  part  of  interval  between  2 entries  in  RNG 

2 

array . 

D2 

KM 

Interval  between  2 entries  in  RNG  array. 

IA 

Int. 

Subscript  to  identify  a fire  unit  in  "A"  array. 

IB 

Int. 

Subscript  to  identify  a round  in  list  of  input  rounds . 

K 

Int. 

Subscript  to  identify  smallest  entry  in  RNG  array  which  is 
>_  (Gun-Target  Range)2 

KS 

Int . 

Subscript  to  identify  largest  entry  in  RNG  array  which  is  < 
(Gun-Target  Range)2 

L 

Int. 

Subscript  to  identify  entries  in  CRE  & CPK  lists. 

RA 

Real 

Fractional  Interval  of  (Gun-Target  Range)2  between  2 entries 
in  RNG  array. 

REI 

Real 

Round  radius  of  effects  (ICM)  or  P^  (HE)  at  Gun-Target  Range. 

RG 

KM2 

(Gun-Target  Range)2  for  a given  fire  unit. 

AMASS 


CT 

Kilo  $ or 
Metric  Tons 

Final  (minimum)  value  (cost  or  weight)  for  the  “best"  round 
used  with  a given  fire  unit. 

CT1V 

Kilo  $ or 
Metric  Tons 

Final  (minimum)  value  (cost  or  weight)  for  1 volley  of  best 
round  used  with  fire  unit. 

CTMIN 

Kilo  $ or 
Metric  Tons 

Intermediate  minimum  value  of  critical  factor  (cost  or  weight) 
for  fire  unit. 

I 

Int . 

Subscript  used  as  a counter  in  setting  up  TEMPA  list. 

INS 

Int. 

Subscript  to  identify  the  site  at  which  a fire  unit  is  now 
located. 

IR 

Int. 

Subscript  to  identify  which  of  the  input  rounds  is  being 
considered. 

IS 

Int . 

Subscript  to  identify  the  system  for  the  fire  unit  being 
considered. 

IT 

Int. 

Subscript  to  identify  which  target  on  the  target  list  is  being 
considered. 

JF 

Int. 

Subscript  to  identify  which  fire  unit  of  input  fire  units  is 
being  considered. 

L 

Int. 

Subscript  to  check  which  rounds  are  allowed  vs  a given  posture 

LK1 

Int. 

Number  of  round  types  allowed  vs  this  target' 3 posture  (open 
environment) . 

LK2 

Int . 

Number  of  round  types  allowed  vs  this  target's  posture  (wooded 
environment) . 

LSYS 

Int. 

Subscript  to  identify  the  system  for  the  fire  unit  being 
considered. 

M 

Int. 

Subscript  to  identify  the  rounds  allowed  for  the  fire  unit 
being  considered. 

NS 

Sites 

The  number  of  sites  a given  fire  unit  occupies  during  the 
game. 
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SUBROUTINE  VARIABLES  (CONT) 


Name 

Units 

Meaning 

AMASS  (Cont'd) 

R 

Rounds 

Intermediate,  then  final  number  of  rounds  a given  fire  unit 
can  fire  vs  target. 

TEMPA  (12) 

Real 

Intermediate  storage  for  fire  unit  data  while  determining 
"best"  round. 

z 

Rounds 

Intermediate  value  of  rounds  a given  fire  unit  can  fire  vs 
target . 

DIVISN 

A9 

KM 

Gun-Target  Range  for  a given  fire  unit  firing  the  mission. 

ASUM 

Real 

Sum  of  fractional  personnel  survivors  (standing,  prone,  and 
crouching) 

B 

Decimal 

Hours 

Time  used  by  a cannon  fire  unit  to  fire  more  than  1 volley. 

IF3 

Int . 

Subscript  to  identify  psn  on  "A"  array  of  fire  units  firing 
multi- volley  method. 

iFij 

Int . 

Subscript  to  identify  psn  on  "A”  array  of  fire  units  firing 
one-volley  method. 

IK 

Int . 

Subscript  to  identify  the  system  for  the  "best"  fire  unit 
firing  multi-volley  method. 

IQ 

Int. 

Counter  used  to  initialize  QUV  list. 

IR 

Int. 

Subscript  to  identify  "best”  round  of  fire  unit  being 
considered. 

IRNG 

KM 

Subscript  to  identify  Gun-Target  Range  rounded  off  to 
nearest  kilometer. 

IS 

Int. 

Subscript  to  identify  the  system  for  the  fire  unit  being 
considered. 

IT 

Int . 

Subscript  to  identify  which  target  on  target  list  is  being 
attacked. 

IXZ 

Int. 

Subscript  to  identify  which  fire  unit  of  all  those  input  is 
being  considered. 

JF 

Int. 

Subscript  to  identify  which  fire  unit  on  "A"  array  is  being 
considered. 

RKGIRT 

KM 

Used  to  round-off  the  Gun-Target  Range  to  nearest  kilometer. 

TEMP 

Rounds 

Defines  the  number  of  rounds  a given  fire  unit  fires  in  one 
volley . 

TN28 

Real 

Fractional  personnel  survivors  in  target  prior  to  attack 
(by  multi-volley). 

TN29 

Real 

Fractional  tank  survivors  in  target  prior  to  attack  (by  multi- 
volley ) . 

TN30 

Real 

Fractional  APC  survivors  in  target  prior  to  attack  (by  multi- 
volley). 

TOE 

Personnel 

Number  of  personnel  (if  any)  in  tanks  and  APC's. 

SHMUVL 

A9 

KM 

Gun-Target  Range  for  a given  fire  unit  firing  the  mission. 

ASUM 

Real 

Sum  of  fractional  personnel  survivors  (standing,  prone  and 
crouching) . 

B 

Decimal 

Hours 

Time  used  by  a cannon  fire  unit  to  fire  more  than  one  volley. 

IF3 

Int. 

Subscript  to  identify  psn  on  "A"  array  of  fire  unit  being 
considered. 

IR 

Int. 

Subscript  to  identify  "best"  round  of  fire  unit  being 
considered. 

IRNG 

KM 

Subscript  to  identify  Gun-Target  Range  rounded  to  nearest 

Kilometer. 
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SUBROUTINE  VARIABLES  (CONT) 


Name 

Units 

Meaning 

SHMUVL  ( Cont  * d ) 

IS 

Int . 

Subscript  to  identify  the  system  for  the  fire  unit  being 
considered. 

IT 

Int . 

Subscript  to  identify  which  target  on  target  list  is  being 
attacked. 

IXZ 

Int. 

Subscript  to  identify  which  fire  unit  of  all  those  input  is 
being  considered. 

JF 

Int. 

Subscript  to  identify  which  fire  unit  on  "A"  array  is  being 
considered. 

RNGINT 

KM 

Used  to  round-off  the  Gun-Target  Range  to  the  nearest  kilo- 
meter. 

TN20 

Real 

Fractional  personnel  survivors  in  target  prior  to  multi- 
volley attack. 

TN29 

Real 

Fractional  tank  survivors  in  target  prior  to  multi-volley 
attack. 

TN30 

Real 

Fractional  APC  survivors  in  target  prior  to  multi-volley 
attack. 

TOE 

Personnel 

Number  of  personnel  (if  any)  in  tanks  & APC's. 

SHOKVL 


A9 

KM 

Gun-Target  Range  for  a given  fire  unit  firing  the  mission. 

APCPO 

Real 

Fractional  APC  survivors  from  last  fire  unit  firing  (1  volley 
or  less). 

ASUM 

Real 

Sum  of  fractional  personnel  survivors  (standing,  prone  and 
crouching) . 

IF2 

Int. 

Subscript  to  identify  psn  on  "A”  array  of  the  fire  unit  being 
considered. 

IR 

Int. 

Subscript  to  identify  "best"  round  of  fire  unit  being  consi- 
dered. 

IRNG 

KM 

Subscript  to  identify  Gun-Target  Range  rounded  off  to  nearest 
kilometer. 

IS 

Int . 

Subscript  to  identify  the  system  for  the  fire  unit  being 
considered. 

IT 

Int. 

Subscript  to  identify  which  target  on  target  list  is  being 
attacked. 

IXZ 

Int. 

Subscript  to  identify  which  fire  unit  of  all  those  input  is 
being  considered. 

RNGINT 

KM 

Used  to  round  off  the  gun-target  range  to  nearest  kilometer. 

TEMP 

Rounds 

Defines  the  number  of  rounds  a given  fire  unit  fires  in  1 
volley. 

TKPO 

Real 

Fractional  tank  survivors  from  last  fire  unit  firing  (1  volley 
or  less). 

TOE 

Personnel 

Number  of  personnel  (if  any)  in  tanks  & APC* 3. 
ONEVOL 

Al(2 ,50) 

Real 

Temporary  storage  of  fire  unit  data  during  sort  of  fire  units 
into  critical  order. 

B(2?) 

Real 

Temporary  storage  of  fire  unit  data  during  sort  of  fire  units 
into  critical  order. 

CONSTR 

Metric  Tons 

Defines  (according  to  target  priority)  maximum  weight  of  ammo 

allowed  vs  target. 
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SUBROUTINE  VARIABLES  ( CONT ) 


Name 

Units 

Meaning 

ONEVOL  (Cont’d) 

CRITMI 

Real 

Temporary  storage  for  lowest  value  of  critical  factor 
(cost  or  weight). 

I AC 

Int. 

Counter  used  in  sorting  thru  "A"  array. 

IM 

Int . 

Counter  used  in  sorting  thru  "A"  array. 

IRS 

Int . 

Subscript  to  identify  which  of  input  rounds  is  "best  round" 
for  fire  unit  considered. 

IS 

Int . 

Subscript  to  identify  the  system  for  the  fire  unit  being 
considered. 

IT 

Int . 

Subscript  to  identify  which  target  on  target  list  is  being 
attacked. 

J 

Int . 

Counter  used  to  sort  thru  "A"  array. 

JF 

Int . 

Subscript  to  identify  psn  of  fire  unit  on  "A"  array. 

K 

Int . 

Counter  used  in  sorting  fire  units. 

L 

Int. 

Counter  used  to  transfer  27  fire  unit  data  points  from" B" list 
to  "A"  array. 

M 

Int. 

Subscript  to  identify  psn  on  "A"  array  of  fire  units  being 
sorted. 

MI 

Int. 

Subscript  to  identify  psn  on  "A"  array  of  "best"  fire  unit 
(with  least  critical  factor). 

NEA 

Int. 

Number  of  fire  units  on  "A"  array  to  be  sorted. 

ROUNDS 

Rounds 

Defines  number  of  rounds  a given  fire  unit  can  fire  in  1 
volley . 

TEMPI 

Metric  Tons 

Weight  of  rounds  from  a given  fire  unit  (to  be  added  to  total 

weight) . 


MULVQL 


CONSTR 

Metric  Tons 

Defines  (according  to  target  priority)  maximum  weight  of  ammo 
allowed  vs  target. 

IF1 

Int. 

Subscript  to  identify  psn  on  "A"  array  of  fire  unit  being 
considered. 

IRS 

Int. 

Subscript  to  identify  "best"  round  for  the  fire  unit  being 
considered. 

IT 

Int. 

Subscript  to  identify  which  target  on  target  list  is  being 
attacked. 

SQNP 

Rounds 

Intermediate  value  of  number  of  effective  rounds  used,  as 
fire  units  are  added. 

TEMP 

Real 

Critical  amount  (cost  or  weight)  of  ammo  used  by  a given  fire 
unit . 

TEMP2 

Metric  Tons 

Weight  of  rounds  from  a given  fire  unit  (to  be  added  to  total 
weight) . 

CORP 

A9 

KM 

Gun-Target  Range  for  a given  fire  unit  firing  the  mission. 

ALPHA 

Real 

Defines  attack  level  for  attack  at  Threshold  "C" . 

ASUM 

Real 

Sum  of  fractional  personnel  survivors  (standing,  prone  and 
crouching) . 

B 

Decimal  Hours 

Time  used  by  a cannon  fire  unit  to  fire  more  than  1 volley. 

IF2 

Int . 

Subscript  to  identify  psn  on  "A"  array  of  CORPS  fire  units 
firing  multi -volley  method. 

IF3 

Int. 

Subscript  to  identify  psn  on  "A"  array  of  given  fire  unit 
firing  1 volley  method. 

IFh 

Int. 

Subscript  to  identify  psn  on  "A"  array  of  GS  or  CORPS  fire 
unit  firing  multi-volley  method. 

IQ 

Int . 

Counter  used  to  initialize  QUV  list. 

IR 

Int . 

Subscript  to  identify  "best"  round  of  a fire  unit  being 
considered. 

IRNG 

KM 

Subscript  to  identify  Gun-Target  Range  rounded  off  to  nearest 
kilometer. 
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SUBROUTINE  VARIABLES  (CONT) 


Name  Units  Meaning 


C0KP  (ContM) 


IS 

Int. 

Subscript  to  identify  the  system  for  the  fire  unit  being 
considered. 

IT 

Int. 

Subscript  to  identify  which  target  on  target  list  is  being 
attacked. 

IXZ 

Int. 

Subscript  to  identify  which  fire  unit  of  all  those  input  is 
being  considered. 

JF 

Int. 

Subscript  to  identify  which  fire  unit  on  "A"  array  is 
being  considered. 

K1 

Int. 

Key  used  to  identify  first  fire  unit  at  a given  echelon  to 
shoot  1 volley  method. 

K2 

Int. 

Key  used  to  identify  last  fire  unit  at  a given  echelon  to 
shoot  1 volley  method. 

KEY 

Int . 

Key  to  control  program  flow  during  use  of  1 volley  attack 
method. 

NEA 

Int . 

Used  to  determine  psn  on  "A"  array  of  1st  CORPS  fire  unit. 

0FLAG1 

Real 

Key  used  to  indicate  that  no  CORPS  echelon  fire  units  are  in 
game. 

OFLAG2 

Real 

Key  used  to  indicate  that  no  GS  echelon  fire  units  are  in 
game. 

RNGINT 

KM 

Used  to  round-off  the  Gun-Target  Range  to  nearest  kilometer. 

TEMP 

Rounds 

Defines  the  number  of  rounds  a given  fire  unit  fires  in  1 
volley. 

TN28 

Real 

Fractional  personnel  survivors  in  target  prior  to  attack 
(by  multi-volley) . 

TN29 

Real 

Fractional  tank  survivors  in  target  prior  to  attack  (by 
multi -volley) . 

TN30 

Real 

Fractional  APC  survivors  in  target  prior  to  attack  (by 
multi-volley) . 

TOE 

Personnel 

Number  of  personnel  (if  any)  in  tanks  & APC's. 
EFFECT 

AI 

Real 

Intermediate  value  of  fractional  survivors  of  personnel  and 
material. 

ART 

Decimal  Hours 

Target  acquisition  (arrival)  Time  at  its  current  location. 

CN 

Rounds 

p 

Used  as  a key  (CN=0)  if  EFFECT  is  called  from  AMASS  to 
determine  number  of  rounds  needed.  CN  is  then  calculated  as 
number  of  rounds  in  addition  to  1 volley  which  is  needed  to 
reach  attack  level. 

CRSQ 

Meters4* 

(Rd-Rd  CPE) | 

CTSQ 

Meters^ 

(Total  CPE)2 

DOWN 

Rounds 

Used  in  iteration  to  determine  number  of  rounds  needed  in 
addition  to  1 volley. 

ECO 

Real 

An  intermediate  value  in  the  calculation  of  fractional 
survivors . 

ECZ 

Real 

An  intermediate  value  in  the  calculation  of  fractional 
survivors . 

FPF 

Real 

% of  personnel  going  from  prone  to  crouching  posture  (now 
warned)  after  1st  volley. 

FSF 

Real 

% of  personnel  going  from  standing  to  crouching  posture  (now 
warned)  after  1st  volley. 

FSP 

Real 

% of  personnel  going  from  standing  to  prone  posture  (now 
warned)  after  1st  volley. 

I 

Int. 

Subscript  to  identify  personnel  and  material  postures. 

IA 

Int. 

Subscript  to  identify  which  fire  unit  on  the  f,A"  array  is 
being  considered. 

IB 

Int. 

Subscript  to  identify  personnel  and  material  postures. 
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SUBROUTINE  VARIABLES  (CONT) 


Name 


IC 

IE 

1ST 

IT 

K 

KB 

KB 

LVT 

MP 

NCODE 

NPSET 

OVN 

RASR 

RND 

SHEAF 

SRV 

TNSQ 

UP 


B 

CB 

CD 

CPSI 

D 

DELTA 

DR 

DR1 

FIR 

FR 

R 

RHOR 

RMAX 

RMAXI 

SD 

TI 

T2 

T6 

TEMP 

TX 


Units 


Meaning 


EFFECT  (Cont»d) 


Int. 

Int. 

Int* 

Int. 

Int. 

Int. 

Int . 

Decimal  Hours 
Int. 

Int. 

Int  • 

Real 

Meters 

Real 

Meters 

Real  2 
Meters^ 

Rounds 


Subscript  to  identify  personnel  and  material  postures. 
Subscript  to  identify  personnel  and  material  postures. 
Subscript  to  identify  the  system  for  the  fire  unit  being 
considered. 

Subscript  to  identify  which  target  on  the  target  list  is 
being  considered. 

Subscript  to  identify  personnel  and  material  postures. 
Subscript  to  identify  personnel  and  material  postures. 
Subscript  to  identify  which  round  of  those  input  is  being 
considered. 

Target  leave  time  from  its  current  location. 

Used  to  define  main  target  element  as  Personnel  (MP=l)  or 
Material  (MP=2). 

A variable  used  to  control  program  flow. 

Used  to  define  target  posture  mix. 

Total  value  of  fractional  survivors  in  the  target. 

Square  root  of  ratio  of  Rd-Rd  CPE /Total  CPE. 

Defines  type  of  round  as  I CM  (RND=l)  or  HE(RND=2) . 

Defines  sheafing  error,  depending  on  system  type,  TLE  and 
target  activity. 

Fractional  survivors  of  main  target  element. 

(Target  Location  Error )^ 

Used  in  iteration  to  determine  number  of  rounds  needed  in 
addition  to  1 volley. 


Radians 

Real 

Real 

Real 

Radians 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 


Incremented  miss  distance. 

Used  to  determine  step  size  of  integration  (RMAX/16). 
Coverage  for  a given  value  of  R. 

Cumulative  sum  of  coverage  (as  function  of  R). 

Current  miss  distance  for  which  coverage  is  computed. 
Probability  of  occurence  of  miss  distance  R. 

Linear  sum  of  Radius  of  Effects  & Radius  of  Target. 
Limit  of  integration  (Maximum  miss  distance). 


Sin  Qx 


Radius  of  Effects /Radius  of  Target.  0 
(Radius  of  Effects /Radius  of  Target)2  * (Tl)2 
Coverage  weighted  by  probability  of  occurence. 
3.61  * Total  CPE 

Ratio  of  miss  distance  to  target  radius. 
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SUBROUTINE  VARIABLES  (CONT) 


Name 


Units 


Meaning 


OUTPUT 


APCS 

APCs 

Total  number  of  APCs  defeated  by  all  systems  up  to  current 
time. 

CAS 

Personnel 

Total  number  of  personnel  defeated  by  all  systems  up  to  current 
time. 

CT 

Kilo  $ 

Total  cost  of  ammo  fired  by  all  systems  up  to  current  time. 

HA(10) 

APCs 

Number  APCs  defeated  by  each  system  at  end  of  previous  hour. 

HT(IO) 

Tanks 

Number  tanks  defeated  by  each  system  at  end  of  previous  hour. 

I 

Int . 

Subscript  to  Identify  system,  range  & rounds. 

ICOUNT( 30)  KM 

A count  of  Gun-Target  ranges  from  1 to  30  km. 

IRDCNT( 50 , 
30) 

Rounds 

Total  number  of  each  round  in  game  fired  at  ranges  from  1 km 
to  30  km. 

J 

Int. 

Subscript  to  identify  ranges . 

K 

Int. 

Subscript  to  identify  ranges. 

NQAL 

Msns . 

Number  of  all  missions  not  undertaken  plus  those  still  on 
target  list. 

NRACQ 

Targets 

Number  of  regular  targets  acquired  (excluding  "OTHER"  msns). 

NREAC 

Targets 

Number  of  regular  targets  reacquired. 

NRF 

Targets 

Number  of  regular  targets  fired  upon,  (excluding  "OTHER"  msns). 

NRFL 

Targets 

Number  of  regular  targets  fired  upon  but  not  defeated. 

NRQ 

Targets 

Number  of  regular  targets  not  undertaken  (excluding  "OTHER" 
msns ) . 

NRQL 

Targets 

Number  of  regular  targets  not  undertaken  plus  those  on  target 
list  (less  "OTHER"  msns). 

NRTGT 

Targets 

Number  of  regular  targets  in  game  (excluding  "OTHER"  msns). 

NTD 

Targets 

Number  of  regular  targets  defeated  plus  "OTHER"  msns  fired. 

PCTQ 

Real 

(Sum  of  mans  not  undertaken /total  acquisitions)  * 100. 

RSUM 

Rounds 

Total  rounds  fired  up  to  current  time  for  each  round  in  game. 

SACQ 

Acquisitions 

Sum  of  target  acquisitions. 

SQ 

Msns . 

Total  of  all  missions  not  undertaken. 

TKS 

Tanks 

Total  number  of  tanks  defeated  by  all  systems  up  to  current 
time. 

WG 

Metric  Tons 

Total  weight  of  ammo  fired  by  all  systems  up  to  current  time. 
SPECIL 

A9 

KM 

Gun-Target  range  for  a given  fire  unit  firing  the  mission. 

B 

Decimal  Hours 

Time  used  by  a cannon  fire  unit  to  fire  more  than  1 volley. 

CSTM 

Kilo  $ 

Temporary  storage  used  to  determine  cheapest  round. 

IC 

Int. 

Subscript  to  clear  "A"  array  when  next  echelon  is  to  be  tried. 

ICR 

Int. 

Subscript  to  clear  "A"  array  when  next  echelon  is  to  be  tried. 

IFS 

Int. 

Subscript  to  identify  which  fire  unit  of  all  those  input  is 
being  considered. 

IKR 

Int . 

Subscript  to  identify  which  round  of  those  input  is  being  used. 

INSS 

Int . 

Subscript  to  identify  the  site  at  which  a given  fire  unit  is 
now  located. 

IRNG 

KM 

Subscript  to  identify  Gun-Target  range  rounded  off  to  nearest 
km. 

Subscript  to  identify  which  round  of  all  input  rounds  is  being 
considered. 

IRS 

Int. 

ISS 

Int . 

Subscript  to  identify  the  system  for  the  fire  unit  being 
considered. 

1ST 

Int . 

Subscript  to  identify  the  mission  on  the  AMSN  array. 

IT 

Int. 

Subscript  to  identify  the  target  ("OTHER"  msn)  on  target  list 
which  is  being  fired. 

IXZ 

Int. 

Subscript  to  identify  which  fire  unit  of  all  those  input  is 
being  considered. 

JFS 

Int . 

Subscript  to  identify  which  fire  unit  on  "A"  array  is  being 
considered. 
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SUBROUTINE  VARIABLES  (CONT) 


Name 

Units 

K 

Int. 

LS 

Int . 

M0RGT1 

Int. 

M0RGT2 

Int. 

M0RGT3 

Int. 

MS 

Int. 

NAK 

Int. 

NS 

Sites 

R 

Rounds 

RDNO 

Rounds 

RNGINT 

KM 

TCST 

Kilo  $ 

Z 

Rounds 

Meaning 


SPECIL  (Cont 'd) 

Subscript  to  identify  the  system  for  the  fire  unit  being 
considered. 

Subscript  to  check  which  rounds  of  those  input  can  be  used  by 
a given  fire  unit. 

Key  to  identify  that  DS  echelon  has  been  considered. 

Key  to  identify  that  GS  echelon  has  been  considered. 

Key  to  identify  that  CORPS  echelon  has  been  considered. 
Subscript  to  identify  the  rounds  allowed  for  the  fire  unit 
being  considered. 

Counter  of  number  of  fire  units  available  for  this  mission. 

The  number  of  sites  a given  fire  unit  occupies  during  the  game. 
Intermediate,  then  final  number  of  rounds  a given  fire  unit 
can  fire  vs  target. 

Number  of  rounds  the  fire  unit  which  will  fire  the  mission 
will  expend. 

Used  to  round-off  Gun-Target  range  to  nearest  km. 

Temporary  value  used  to  determine  the  round  with  the  cheapest 
total  cost. 

Number  of  rounds  a given  fire  unit  has  on  hand  at  current 
time . 
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SAMPLE 

INPUT  FOR  AMSAA  TECHNICAL  REPORT  NO. 

, 97 

-6.00 

24.0 

3.0 

0.0 

.6 

0.0 

.4 

0.0 

C.O 

0.0 

.25 

.75  0.0 

0.0 

1.0 

.5 

.5 

0.0 

0.0 

0.0 

.5 

.5 

0.0  0.0 

0.0 

2.0 

0.0 

.75 

.25 

0.0 

0.0 

0.0 

.75 

.25  0.0 

0.0 

3.0 

0.0 

0.0 

1.0 

0.0 

0.0 

0.0 

0.0 

1.0  0.0 

0.0 

4.0 

.25 

0.0 

.75 

0.0 

0.0 

0.0 

.25 

.75  0.0 

0.0 

5.0 

0.0 

0.0 

0.0 

0.0 

1.0 

0.0 

0.0 

0.0  0.0 

1.0 

6.0 

0.0 

0.0 

0.0 

0.0 

1.0 

0.0 

0.0 

0.0  0.0 

1.0 

7.  J 

0.0 

0.0 

0.0 

1.0 

0.0 

0.0 

0.0 

0.0  1.0 

0.0 

8.0 

0.0 

0.0 

0.0 

1.0 

C.O 

0.0 

0.0 

0.0  1.0 

0.0 

9.0 

0.0 

0.0 

0.0 

1.0 

0.0 

0.0 

0.0 

0.0  1.0 

0.0 

10.0 

0.0 

0.0 

0.0 

1.0 

C.O 

0.0 

C.O 

0.0  1.0 

0.0 

11.0 

2 

.00 

.75 

0.25 

0.0 

0.0 

.00 

.75 

0.25  0.0 

0.0 

1200.3 

.667 

18. 

4. 

3. 

2. 

4500. 

400. 

12. 

10. 

60. 

1. 

1400.1 

0. 

6. 

3. 

2. 

2. 

1000. 

120. 

9. 

7. 

60. 

c 

1. 

J 

1203.3 

.060 

.200 

16. 

.95 

1. 

1. 

5. 

0. 

3. 

6. 

9. 

12. 

15. 

16. 

15. 

15. 

20. 

23. 

35. 

63. 

90. 

55. 

55. 

100. 

135. 

165. 

260. 

300. 

2. 

30. 

.910 

.81 

42. 

110. 

67. 

15.2 

0. 

0. 

25. 

15. 

2.6 

0. 

0. 

1204.3 

.086 

.270 

16. 

.92 

1. 

1. 

5. 

0. 

2. 

4. 

6. 

8. 

10. 

12. 

14. 

16. 

10. 

10. 

14. 

20. 

27. 

37. 

50. 

82. 

110. 

55. 

55. 

72. 

100. 

119. 

142. 

165. 

236. 

315. 

2.6 

21. 

.920 

.85 

60. 

90. 

37. 

12. 

5.0 

7.6 

23. 

10. 

1.2 

1.4 

2.1 

1205.3 

.067 

.312 

24. 

.95 

1. 

2. 

0. 

0. 

4. 

8. 

12. 

16. 

20. 

24. 

12. 

12. 

17. 

23. 

35. 

62. 

90. 

45. 

45. 

87. 

136. 

170. 

240. 

400. 

1110. 

1110. 

1280. 

1325. 

1572. 

2470. 

3050. 

908. 

908. 

930. 

995. 

1123. 

1680. 

2720. 

200. 

200. 

215. 

225. 

230. 

235. 

235. 

50. 

50. 

50. 

50. 

50. 

50. 

50. 

73. 

73. 

73. 

73. 

73. 

73. 

73. 

375. 

375. 

422. 

456. 

582. 

870. 

1105. 

280. 

280. 

305. 

327. 

384. 

620. 

890. 

57. 

57. 

53. 

49. 

41. 

30. 

23. 

25. 

25. 

25. 

25. 

25. 

25. 

25. 

67. 

67. 

67. 

67. 

67. 

67. 

67. 

1401.1 

• 200 

.612 

22. 

.93 

1. 

1. 

5. 

0. 

4. 

8. 

12. 

16. 

20. 

24. 

0. 

12. 

18. 

26. 

40. 

61. 

70. 

0. 

34. 

67. 

113. 

170. 

246. 

277. 

1.3 

66  . 

.947 

.72 

512. 

210. 

98. 

12. 

0. 

0. 

160. 

74. 

8. 

0. 

0. 

14G2.1 

.157 

.478 

22. 

.93 

1. 

2. 

0. 

0. 

8. 

16. 

24. 

30. 

30. 

40. 

80. 

72. 

72. 

120. 

290. 

1110. 

1450. 

2000. 

2325. 

800. 

975. 

1540. 

1850. 
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170. 

207. 

280. 

300. 

60. 

60. 

60. 

60. 

90. 

90. 

90. 

90. 

• 

810. 

820. 

950. 

1060. 

490. 

490. 

510. 

520. 

60. 

60. 

65. 

70. 

35. 

35. 

35. 

35. 

65. 

65. 

65. 

65. 

10 

4 

1200.3 
- 6. 

06.30 

465.0 

593.3 

08.57 

15.00 

468.0 

583.3 

17.27 

18.30 

479.2 

584.4 

20.00 

30.00 

481.5 

577.5 

4 

4 

120./. 3 
- 6. 

05.00 

468.5 

596.6 

07.06 

08.00 

471.0 

598.0 

13.27 

12.00 

470.3 

582.5 

13.21 

30.00 

471.7 

578.0 

3 

1200.3 
- 6. 

06.20 

483.6 

596.0 

08.14 

10.00 

488.4 

590.2 

12.06 

30.00 

489.5 

582.1 

3 

1200.3 
- 6. 

05.15 

462.3 

595.9 

06.57 

09.30 

462.  G 

589.4 

11.24 

30.00 

462.5 

582.5 

4 

• 

1200.3 
- 6. 

06.30 

480.9 

593.2 

08.24 

09.30 

479.2 

585.5 

10.45 

18.00 

478.3 

574.7 

18.57 

30.00 

479.5 

579.4 

4 

1200.3 
- 6.00 

06.00 

457.5 

597.4 

08  .06 

11.00 

458.5 

591.5 

12.54 

21.00 

459.8 

584.5 

22.09 

30.00 

460.3 

580.2 

4 

1400.1 
- 6. 

05.48 

480.6 

597.2 

06.36 

09.33 

484.4 

590.9 

10.06 

13.07 

485.0 

583.7 

13.44 

30.00 

483.5 

577.4 

4 

1400.1 
- 6. 

05.00 

480.6 

597.2 

05.48 

09.00 

484.4 

590.9 

* 

09.33 

12.30 

485.0 

583.7 

13.07 

30.00 

483.5 

577.4 

4 

1400.1 
- 6. 

06.36 

480.6 

597.2 

07.24 

10.06 

484.4 

590.9 

10.39 

13.44 

485.0 

583.7 

D-4 

• 

30.00 


483.5 


577.4 


14.21 
3 

1400.1 

- 6.  06.00  465.7  593.5 

06.45  09.30  468.5  588.5 

10.25  30.00  468.5  578.2 


1200.3 

1203.3  1204.3 

1205.3 

1400.1 

1401.1  1402.1 

0 

5 5 

1203.3 

1204.3  1205.3 

1401.1 

1402.1 

1203.3 

1204.3  1205.3 

1401.1 

1402.1 

1 

5 5 

1203.3 

1204.3  1205.3 

1401.1 

1402.1 

1203.3 

1204.3  1205.3 

1401.1 

1402.1 

2 

5 5 

1203.3 

1204.3  1205.3 

1401.1 

1402.1 

1203.3 

1204.3  1205.3 

1401. 1 

1402.1 

3 

5 5 

1203.3 

1204.3  1205.3 

1401.1 

1402.1 

1203.3 

1204.3  1205.3 

1401.1 

1402.1 

4 

5 5 

1203.3 

1204.3  1205.3 

1401.1 

1402.1 

1203.3 

1204.3  1205.3 

1401.1 

1402.1 

5 

3 3 

1204.3 

1205.3  1402.1 

1204.3 

1205.3  1402.1 

6 

3 3 

12u4.3 

1205.3  1402.1 

1204.3 

1205.3  1402.1 

7 

3 3 

1204.3 

1205.3  1402.1 

1204.3 

1205.3  1402.1 

8 

3 3 

1204.3 

1205.3  1402.1 

1204.3 

1205.3  1402.1 

9 

3 3 

1204.3 

1205.3  1402.1 

1204.3 

1205.3  1402.1 

10 

3 3 

12C4.3 

1205.3  1402.1 

1204.3 

1205.3  1402.1 

11 

5 5 

1203.3 

1204.3  1205.3 

1401.1 

1402.1 

1203.3 

1204.3  1205.3 

1401.1 

1402.1 

SAMPLE  MIX  FOR  AMS AA  TECHNICAL  REPORT  NO.  97 
11 

11111 

1112233332 

2. 
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TIME-  24.0000 


97 


AC0- 


3284.00 


Sample  mix  for  amsaa  tfchnical  rfport  no. 

PERS-  4451  1 .42  TANK*  1394.0.1 


APC*  2251.60  MIL  rfORTH*  7774.30 


SYSTEM 

1200.3^ 

1400,1ft 

TOTALS 


COST 

1 o 1 16.0342 
6690.201 | 

16006,2353 


"EIOHT 

3263.434J 

1924.9070 

5168.341 1 


personnel 

4017.7347 

7964.4797 


TASKS 

7,6976 

-o.nnno 


1)986.2144  7.6976 

RANGE  IN  KILOMETERS 


A PCS 

34.1575 

-0.0000 

34.1575 


PCTQ 


56.6921  MU-  4575.03 


ROUND  ID  1 2 3 4 5 6 7 8 9 1 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 18  19  20  21  22  23  ?4  25  26  27 

1201.30  169  0 503  6961015  736  579 1 760 i 34 6 1 7 64 1 962 1 396 1 24 178632924  42  0000000000 


1204.30  264  1 0 1 701  100  466  6051411240)44091876  423  762  359 

RNDSUM  - 14026.2479 

1205.30  0 ft  0 183  0 0 

RNDSUM  ■ 5207.6502 

1401.10  5 21  5 27  93  44 

RNDSUM  - 9619,8252 


OOOOOOOOOOO 
000  ?6  0006  19811162780  804  559  361098  138  564  471 

93  223  220  393  724  552  840  745  507  906  744  885  706  661  570  262  0 ft 


1402,10  0 0 

RNDSUM  ■ 


0 0 

6,0000 


28  29  30 

0 0 0 


OTHER 

missions 

REGULAR 

TARGETS 

TOTALS 

ACQUISITIONS- 

369 

2915 

3294 

NO. 

OF  TARGETS" 

369 

807 

1176 

NO. 

MSN/TGTS  QUEUED" 

68 

126) 

1329 

SUM 

OUFUED  ♦ STUL  ON  LIST- 

68 

1352 

1420 

NO. 

HSN/TSTS  F|»En« 

301 

615 

916 

NO. 

MSN/TGTS  DEFEATED" 

301 

254 

555 

TGT 

FIRED  BUT  LOST" 

0 

361 

361 

OUfUeD  MjSSlON  TOTAL  INCLUDES  THOSE  DROPPED  DUE  TO  L0«  PRIORITY! 

firec  i26i),  and  other-type  missions  trier  but  cant  do<  68). 


0 ),  THOSF  DEPARTED  BEFORE  ATTEMPT  TO 


NO.  OF  TOTS  STILL  ON  TOT  LIST-  Oi. 

NO.  OF  PREVIOUSLY  DEFEATED  TOTS  uHICH  APE  REACQUIRED- 
NO,  OF  TARGETS  COMBINED  (UITHfN  200  METERS)-  291. 


657. 


TOTAL  OF  ALL  RE ACOUI S IT  I OSS-  2108 


DISTRIBUTION  LIST 


No.  of  No.  of 

Copies  Organization  Copies  Organization 

12  Commander  1 Commander 

Defense  Documentation  Center  US  Army  Materiel  Command 


ATTN : TIPCR 

Cameron  Station 
Alexandria,  VA  22314 

1 Commander 

US  Army  Materiel  Command 
ATTN : AMCCP 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN:  AMCDL 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN:  AMCM\ 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN:  AMCGS-L 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN : AMCPA-S 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN : AMCQA 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 


ATTN : AMCRD-E 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN : AMCRD-G 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN : AMCRD-M 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN:  AMCRD-R 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN : AMCRD-P 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN : AMCRD-W 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 

1 Commander 

US  Army  Materiel  Command 
ATTN:  AMCRD-T 

5001  Eisenhower  Ave 
Alexandria,  VA  22333 


DISTRIBUTION  LIST  (cont) 


No.  of 
Copies 


1 


1 


1 


1 


1 


1 


No.  of 

Organization  Copies  Organization 


1 


Commander  1 

US  Army  Materiel  Command 

ATTO : AMCPM-SA 

Picatinny  Arsenal 

Dover,  NJ  07801 

Commander  1 

US  Army  Armament  Command 

ATTN : AMSAR-SA 

Rock  Island,  IL  61201 

Commander 

Harry  Diamond  Laboratories  1 

ATTN:  Sys  Anal  Ofc 

Washington,  D.C.  20438 

Commander 

Frankford  Arsenal  1 

Philadelphia,  PA  19137 

Chief,  Analytical  Sciences 
Office 

USA  Biological  Defense 
Research  .Laboratory 
ATTN : AMXBL-AS 

Dugway,  UT  84022 

Commander 

US  Army  Aviation  Systems 
Command 

ATTN:  AMSAV-ERW 

PO  Box  209 

St.  Louis,  MO  63166 
Commander 

US  Army  Electronics  Command 

ATTN:  AMSEL-SA 

Fort  Monmouth,  NJ  07703 


Commander 

US  Army  Missile  Command 
ATTN:  AMS MI -DA 

AMSMI -C 

Redstone  Arsenal,  AL  35809 
Commander 

US  Army  Troop  Support  Command 
ATTN : Sys  Anal  Ofc 

4300  Goodfellow  Blvd 
St.  Louis,  M0  63120 

Commander 

Rock  Island  Arsenal 
ATTN:  SARRI-LR-S 

Rock  Island,  IL  61201 


Commander 

US  Army  Armament  Command 
ATTN:  Sys  Anal  Ofc 

Rock  Island,  IL  61201 

Manager 

Defense  Logistics  Studies 
Information  Exchange 
US  Army  Logistics  Management 
Center 

ATTN:  Mr.  Leon  T.  Scarbrough 

Fort  Lee,  VA  23801 


34 


DISTRIBUTION  LIST  (cont) 


No.  of 

Copies  Organization 


No.  of 

Copies  Organization 
1 Commander 

US  Army  Safeguard  Evaluation 
Agency 

ATTN:  SSEA-T 

White  Sands  Missile  Range,  NM 
88002 


1 Commander 

Picatinny  Arsenal 
ATTO:^  SARPA-AD-C 

(Dr.  S.  Einbinder) 
Dover,  NJ  07801  - 

1 Project  Manager,  ARTADS 
ATTN : AMCPM-TDS 

Fort  Monmouth  07703 

1 Commander 

USA  Field  Artillery  School 
ATTN : ATSF-CTD 

Fort  Sill,  OK  73503 

1 Commander 

USA  Combined  Arms  Combat 
Developments  Activity 
ATTN:  ATCACA-A 

Fort  Leavenworth,  KS  66027 

Aberdeen  Proving  Ground 

Cdr,  USATECOM 
ATTN:  AMSTE-TS 

Ch,  Tech  Lib 
Bldg.  305 

Dir,  BRL 
Bldg.  328 
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